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? 1. ABSTRACT 

3 

5 THE RM05/3/2 PERFORMANCE EXERCISER PROGRAM IS DESIGNED TO PERFORM 

6 AN INTERACTIVE TEST ON RM DISK DRIVES CONNECTED TO A MASSBUS 

7 SUBSYSTEM. THE DRIVES MAY BE CONTROLLED BY fif* RH70 CONTROLLER. 

8 IN ADDITION TO PERFORMING AN INTERACTIVE TEST OF THE DISK DRIVES 

9 ON THE SUBSYSTEM. THE PROGRAM IS INTENDED TO BF USED TO VERIFY 

10 THAT THE D-aIVES UNDER TEST AP'^ PERFORMING TO THEIR DATA ERROR 

11 RATE AND SEEK ERROR RATE (SEE ER'VOR RATE SPECIFICATIONS). 

13 THE PERFORMANCE EXERCISER PROGRAM WILL EXERCISE DRIVES CO>*.ECTED 

U AS EITHER SINGLE OR DUAL PORT UNITS. DUAL PORT DRIVES ARE TESTED 

15 BY LOADING AND RUNNING THE PROGRAM FROM BOTH CONTROLLING SYSTEMS. 

16 THE PROGRAM WILL EXERCISE A MIXED SYSTEM OF DUAL PORT AND SINGLE 

17 PORT DRIVES. 
18 

^9 TO CMTAIN INTERACTIVE TESTING, OPERATIONS ON THE MULTI-DRIVE 

20 CONFIGURATIONS ARE OVERLAPPED (OTHER DRIVES ARE PERFORMING SEEK/SEAPCH 

21 OPERATIONS WHll= ONE DRIVE IS PERFORMING A DATA TRANSFER). OPERATIONS 

22 AMONG THE DRIVES ARE OPTIMIZED SO THAT A HIGH SUBSYSTEM DATA TRANSFER 

23 RATE OR A HIGH POSITIONING OPERATION RATE IS MAINTAINED, 
2A 

25 THE PERFORMANCE OF EACH DRIVE IS MONITORED BY THE PROGRAM. IF A 

26 DRIVE EXCEEDS A PRESET NUMBER OF ERRORS IN ANY OF SEVERAL CATEGORIES. 

27 THAT DRIVE IS AUTOMATICALLY DEASSIGNED. (THE OPERATOR MAY OVERRIDE 

28 THE AUTOMATIC DEASSIGNTttNT FEATURE.) THE PROGRAM REPORTS PERFORMANCE 

29 STATISTICS FOR EACH DRIVE BEING EXERCISED ON REQUEST FROM THE 

30 OPERATCW OR AUTOMATICALLY AT AN INTERVAL DETERMINED BY THE OPERATOR. 
31 

32 ALL DATA TRANSFER COMMANDS tXCEPT WRITE HEADFR t DATA AND WRITE CHECK 

33 HEADER t DATA ARE USED. RECALIBRATE AND READ-IN PRESET COMMANDS ARE 
3A USED AT STARTUP AND DRIVE INITIALIZATION. RECALIBRATE. OFFSET. AND 
35 RETURN-TO-CENTERLINE COMMANDS ARE USED DURING ERROR RECOVERY. 

36 

37 THE DATA TRANSFER COMMANDS ARE SELECTED RANDOMLY EXCEPT FOR THE 

38 WRITE CHECK COMMANDS. THE WRITE CHECK COMMANDS ARE USED TO VERIFY 

39 A PREVIOUS WRITE OPERATION. THUS. WHEN A WRITE COMMAND IS SELECTED. 
AO THE DATA WRITTEN IS VERIFIED BY THE APPROPRIATE WRITE CHECK 

A1 COMMAND. 
A2 

A3 DEPENDING UPON WHETHER THE PROGRAM HAS BEEN LOADED VIA APT AUTOMATIC 

AA MODE OR APT DUMP MODE WILL DETERMINE WHETHER; PROGRAM/OPERATOR 

A5 COMMUNICATIONS ARE THROUGH THE KEYBOARD. DYNAMIC PROGRAM OPTIONS 

A6 ARE SELECTED VIA SWITCH REGISTER SETTINGS AND ERRORS ARE REPORTED 

A7 ON THE CONSOLE TERMINAL. 
A8 

A9 M GENERAL DOCUMENT NOTES 

50 

51 A. IN REFERENCE TO ALL NUMBERS IN THIS DOCUMENTION. TO INDICATE THE 

52 BASE OF A NUMBER LARGER ^HAN SEVEN. A PERIOD(.) WILL FOLLOW THE 

53 NUf^ER TO INDICATE DECIMAL OR NO PERIOD WILL F'^ LOW THE NUMBER 
5A TO INDICATE OCTAL. IF THE NUMBER OCCURS AT THE END OF A SENTENCE. 

55 A DOUBLE PERIOD (. .) INDICATES DlTIfiAL AND A SINGLE PERIOD( .) 

56 INDICATES OCTAL. ALSO. ANY REFERENCES TO TIME ARE ALWAYS IN 

57 DECIMAL. 
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S8 
59 
60 

62 2. REQUIREMENTS 

63 

65 2.1 EQJIPMENI 

67 PDP-n pro:essor 

68 20K MEMORY 

o9 KW11-L OR KiVll-P CLOCK 

70 PROGRAM LOAI/ING DEVICE 

71 TERMINAL 

72 RH11 OR RH70 CONTROLLER 

73 1 TO 8 DISK DRIVES (ANY COMBINATION OF RMOS'S, RM03'S OR RM02'S) 
74 

75 2.2 MEDIA 

77 THE PERFORMANCE fXERCISER PROGRAM REQUIRES FORMATTED DISK 

78 PACKS GENERATED BY THE RM05/3/2 FORMATTER PROGRAM (CZRML). 

79 THE PACKS MUST BE FORMATTED IN 32. SECTOR (16 BIT) MODE;THF 

80 Alternate (30. sector - i8 bit ) mode is not supportted. 

81 

82 2.3 PRELIMINARY PROGRA^:S 

U RM05/3/2 DISKLESS TE'»TS. PART 1 I 2 

86 RM05/3/2 FUNCTIONAL TCSTS, PART 1. 2 3 

87 

88 

8V 3. OPERATING PROCEDURE 

9Q 

91 

92 3.^ LOADING THE PROGRAM 

94 THE PROGRAM MAY BE LOADED BY EITHER OF THE FOLLOWING MEDIA: 

96 .PAPER TAPE, USING THE STANDARD PAPER TAPE PROCEDURE 

97 .XXDP MEDIA, USING ANY XXDP DEVICE 
98 

99 3.2 STARTING ADDRESSES 
100 

101 200 - START ADDRESS, ALL SWITCHES CLEAR (SEE SECTION 3.4) 

103 WHEN THE PROGRAM IS STARTLD. A DATA PATTERN WILL BE WRFFEN TO 

104 ALL ON-LINE DRIVES IN A SEQUENTIAL SEEK MODE. UPON COMT lUOH OF 

105 THE WRITE. THE PROGRAM GOES INTO A TESTING MODE. 

107 204 - RESTART ADDRESS. THE RFSTART ADDRESS PROVIDES THE OPERATOR WITH 

108 THE ABILITY TO CHANGE THE DEFAULT RH/RM ADDRESSES (SEE SECTION 
09 4.1.2). ANY PROGRAM PARAMETERS (SEE SECTION 4.1) OR CHANGE 

no DRIVE LIMIT PARAMETERS (SEE SECTION 4.2). 

111 

112 

M3 3.3 PROGRAM CONTROL 
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PROVIDED THE PROGRAM HAS BEEN LOADED AND STARIEL'' VIA THE APT DUMP 
MODE OR THE DIAGNOSTIC IS RUNNING IN STAND ALONE Pf<0CE5S0R/DRWf 
OPERATIONS ARE INITIATED AND CONTROLLED BY KEYBOARD COMMANDS AND 
SWITCH REGISTER SWITCH SETTINGS. 

HOWEVER. IF THE PROGRAM IS LOADED VIA APT SCRIPT KODt ALL SETUP 
AND SWITCH REGISTER SETTINGS WILL BE PROVIDED THROU.>< THE APT E TABLE. 
TYPEOUTS FROM THE USER DIAGNOSTIC MAY OR MAYNOT BE INHIBITED 
DEPENDING UPON WHETHER OR NOT THE APPROPRIATE BIT IN THE E TA8LF 
HAS BEEN ScT. 

3.4 SWITCH OPTIONS 

IF THE PROGRAM IS BEING PUN ON A SWITCHLESS PROCESSOR TME PROGRAM 
WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS NOT PRESENT 
AND WILL USE A 'SOFTWARE' SWITCH REGISTER. THE 'SOFTWARE' SWITCH 
REGISTER IS LOCATED AT LOCATION 176 . THE SETTINGS OF THE 'SOFTWARE' 
SWITCHES ARE CONTROLLED THROUGH A KEYBOARD ROUTINE WHICH IS CALLED 
BY TYPING A 'CONTROL G'. THE PROGRAM WILL RECOGNIZE THE 'CONTROL G' 
AT ANY TIME EXCEPT WHEN THE PROGRAM IS IN KEYBOARD ENTRY MODE, OR 
IS AT A HIGHER PRIORITY PROCESSING AN DRIVE INTERRUPT. THE 'SOFTWARF' 
SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE TO ^hE 
PROMPT FROM THE SWITCH ENTRY ROUTINE: 



'SWR = NNNNNN 



NEW 



EACH TIME SWITCH SETTINGS ARE ENTERED, THE ENTIRE SWITCH REGISTiR 
IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT REQUIRED. 'RUBOUT' 
AND 'CONTROL U' FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS DURING 
SWITCH ENTRY. 

ON PROCESSORS WITH HARDWARE SWITCH REGISTERS. THE 'SOFTWARE' SWITCH 
REGISTER MAY BE USED, IF THE PROGRAM FINDS ALL I'S IN THE SWITCHES. 
ALL SWITCH REGISTER REFERENCES WILL BE TO THE 'SOFTWARE' REGISTER 
AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED. 



SW<15>=1 

SW<14> 

SW<13>=1 

SW<12> 

SW<11> 

SW<10>=1 

SW<09> 

SW<08>=1 

SW<07>=1 

SW<06>=1 

SW<05>=1 

SW<04>=1 
SW<03>=1 



SW<02> 1 



HALT ON ERROR 
NOT USED 

INHIBIT ERROR TYPEOUT 
NOT USED 
NOT USED 
BELL ON ERROR 
NOT USED 

INHIBIT END OF PASS MFSSAGES 

DISPLAY ALL DATA COMPARE ERRORS 

DO NOT ALTER THE CURRENT OPERATION PARAMETERS 

PARTIAL REGISTER DISPLAY IF ERROR; DO NOT DISPLAY 

ECC CORRECTION RESULTS 

INHIBIT MAXIMUM ERROR COUNT CHECK; DO NOT DEASSIGN 

DRIVES WHEN END OF TEST IS REACHED 

DISPLAY THE SECTOR IN ERROR (BEFORE RETRY ATTEMPTS) 

IF 'DCK'. 'DTE'. OR 'WCF' ERRORS OR AFTER THE 28TM 

RETRY IF UNCORRECTABLE 'DCK' ERROR 

IF DATA CCW1PARE ERRORS I SW<07> SET, DISPLAY REST 

OF BUFFER 

INHIBIT SUBSYSTEM STATUS TYPEUT DURING STARTUP 
INHIBIT PERFORMANCE REPORT AFTER SPECIFIED t;mE 



l_ _ 
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SW<01>=1 
SW<00>=1 



SW<00> 



INHJ8JT DATA COMPARE AFTER READ COMMAND, W/0 E«IWr 
'READ ONLY" MODE 



WHEN THE SWITCH IS SET(I). THE PROGRAM WILL OPERATE IN '1»EA0 
ONLY" MODE. IF THE SWITCH IS CLEARED(O), THE PROGRAM WILL RETL«N 
TO READ/WRITE MODE DURING TESTING. THIS SWITCH ONLY EFFECTS THE 
TESTING PORTION OF THE PROGRAM. 

FOR EXAMPLE. IF THE PROGRAM IS STARTED AT ADDRESS 200 . A DATA 
PATTERN WILL BE WRITTEN TO ALL ON-LINE DRIVES IN A SEQUENTIAL 
SEEK MODE. UPON COMPLETION OF THE WRITE. THE PROGRAA" GOES INTO A 
TESTING MODE. HOWEVER. IF THE OPERATOR SWITCHES TO "READ ONLY" 
MODE (SW0=1) JUST PRIOR TO OR DURING THE SEQJfcNTIAL WRITTING 
OF THE DISK, THE PROGRAM WILL CONTINUE WRIfilNG UNTIL THE 
SEQUENTIAL WRITE IS COMPLETED. UPON COMPLETION OF THE SEQUENTIAL 
WRITE, THE PROGRAM WILL SWITCH TO A "READ ONLY" TESTING MODE 
UNTIL SWO IS RESET TO ZERO BY THE OPERATOR. 

PASS/TEST TERMINATION 

A DASS IN RANDOM 'T* COMMAND MODE OR SEQUENTIAL 'T' COMMAND MODE IS 
DETERMINED BY EITHER BITS READ OR SEEKS PERFORMED. THE NUMBER OF BITS 
OR SEEKS REQUIRED FOR A PASS IS DERIVED FROM EITHER THE SOFT ERROR 
RATE SPECIFICATION OR THE SEEK ERROR RATE SPECIFICATION. 

THE SOFT ERROR SPECIFICATION FOR THE RM DRIVE IS NO MORE THAN 1 SOFT 
ERROR (NON-DISK RELATED) IN 1 X 10*10 BITS READ. (SEE SECTION 3.5.1 
FOR THE 903; CONFIDENCE LEVEL) 

THE SEEK ERROR SPECIFICATION FOR THE RM DRIVE IS NO MORE THAN 1 SEEK 
ERROR IN 1 X 10*6 SEEKS. (SEE SECTION 3.5.1 FOR THE 90Z CONFIDENCE 
LEVEL) 



A PASS IN 'W OR 'R' CCSWtND MODE IS DETERMINED 
DISK ADDRESS LIMITS SETUP BY THE OPERATOR. 

3.5.1 PASS TERMINATION 



BY THE MAXIMUM 



END OF PASS FOR A SINGLE DRIVE IN THE RANDOM 'T' COMMAND MODE OR 
SEQUENTIAL 'T* COMMAND MODE, IS DETERMINED B^ ONE OF THE FOLLOWING 
CONDITIONS. 

A. IF PARAMETER 'ENDING* IS 1, END OF PASS OCCURS WHEN THE DRIVE 
HAS READ 3 X 10*9 BITS (1.875 X 10*8 WORDS). IT WILL TAKE 
APPROXIMATELY 3.33 PASSES TO REACH THE SOFT ERROR RATE OF 
1 X 10*10 BITS (6.25 X 10*8 WORDS) READ. HOWEVER, IT WILL TAKE 
10. PASSES TO REACH THE 90X CONFIDENCE LEVEL OF 3 X 10*10 BITS 
(1.875 X 10*9 WORDS) READ. 

B. IF PARAMETER 'ENDING' IS 0, END OF PASS OCCURS WHEN THE DRIVE 
HAS PERFORMED 1 X 10*6 SEEKS. IT WILL TAKE 1 PASS TO REACH 
THE SEEK ERROR RATE OF 1 X 10*6 SEEKS. HOWEVER. IT WILL TAKE 
3 PASSES TO REACH THE 90S! CONFIDENCE LEVEL OF 3 X 10*6 SEEKS. 
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END OF PASS FOR A SINGLE DRIVE JN 'W OR COMMAND MODE. IS 

231 DETERMINED AS FOLLOWS. 

m A. WHEN A SEQUENTIAL SEEK JS MADE BEVOND THE MAXIMUM DISK ADDRESS 

LIMITS SET BY THE OPERATOR, THE PASS IS CONSIDERED EWED. 

236 3.5.2 TEST TERMINATION 

238 IF SW04 IS CLEAR, THE TEST FOR A DRIVE 15 TERMINATED WHEN: 

a. THE DRIVE HAS COMPLETED THE NUMBER OF PASSES SPECIFIED IN 

52i PARAMETER 'PASSES'. 

p7p B. THE TOTAL ERRORS ACCUMULATED EXCEED 25. - 

p/3 C. A FATAL ERROR OCCURS: EMI 2 OR EMU. 

2II D. OPERATOR DEASSIGNS THE DRIVE 

iZt E. THE NUMBER OF PASSES SPECIFIED BY THE MONITOR HAVE BEEN 

ill REACHED, WHEN RUNNING IN 'XXDP' CHAIN MODE, 'ACTIT CHAIN 

247 MODE OR 'APT' SCRIPT MODE (ANY AUTO MODE). 

248 

249 

250 3.6 RUN TIME 

III THE EXERCISER PROGRAM MAY BE RUN IN TWO MODES. (SEE SECTION 3.5.1) 

pcT THE PROGRAM RUN TIME VARIES GREATLY DEPENDING ON THE OPERATION 

ill MODE SELECTED, THE READ/WRITE RATIO PARAMETER ('RATIO'). AND BY 

255 SWR SWITCHES 0. 1 . AND 2. 

257 3.6.1 DATA TRANSFER MODE (DEFAULT) 

III 1 DRIVE - APPROX. 1 HR. 45 MIN. (TO REACH 3 X 10-9 BITS OR 1.875 X 10-8 WORDS) 

WITH SW<00> =1 AND SW<01> =1. THE PROGRAM WILL RUN APPROX. .^01 FASTER 

262 
263 

264 3.6.2 SEEK VERIFICATION MODE 

266 PARAMETER 'WRDCNT' = 256. (1 SECTOR) 

267 PARAMETER 'MAXTRK* = 'MINTRK' (SAME VALUES) 

268 PARAMETER 'MAXSEC = 'MINSEC (SAME VALUES) 

269 SW<01> =1 (NO DATA COMPARE) 

270 SW<00> =1 (READ ONLY MODE) 

272 1 DRIVE - APPROX. 4.0 HRS (TO REACH 1 X 10*6 SEEKS) 

273 
274 

275 3.7 DUAL PORT OPERATION 

277 A. LOAD THE PERFORMANCE EXERCISER PROGRAM INTO BOTH PROCESSORS. 

llq B SWITCH THE 'CONTROLLER SELECT' SWITCH TO 'A/B' ON EACH DRIVE 

Iso WHICH IS TO BE TESTED AS A DUAL PORT DRIVE AND CYCLE THE DRIVES UP. 

282 C. START THE PROGRAM IN EACH PROCESSOR. RUN THE PROGRAM AS THOLKiH 

283 EACH PROCESSOR WERE RUNNING INDEPENDENTLY OF THE OTHER. 
284 

285 3.8 XXDP, ACT11, APT11 COMPATIBILITY 
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?ff THIS PROGRAM IS C0MPATI8LE WITH ACT11 AND APT11 IN BOTH DUMP AND 

288 AUTOM/>TIC MODES. 

PROGRAM IS ALSO, COMPATIBLE WITH XXDP IN ^UMP AND CHAIN MODES 

<?V AND PROVIDES MEDIA PROTECTION IN THE CASE WHERE THE RM05/3/? IS THE 

292 X^DP LOADING DEVICE. 

294 AUTOMATIC MODE OR CHAIN MODE (MONITOR) 

Itl 1. THE BUS ADDRESS AND CONTROLLER INTERRUPT VECTOR ARE DEFAULTED TO 

1,7 176700 AND 254 RESPECTIVELY. 

299 DUMP MODE (NO MONITOR) 

1. INPUT DIALOGUE PROMPTED AFTER PROGRAM STARTS 

305 3.9 APT ETA8LE DEFINITIONS 

IRc THE FOLLOWING DEFINITIONS ARE VALID FOR SPECIFYING AFT ENVIR0^^1ENTAL 

TABLE (ETABLE) ENTRIES. VIA RUNNING THE APT UTILITY PROGRAM TSP ': 

308 SOFTWARE ENVIROf^WENT: 

l?0 = 1 If^ APT SCRIPT MODE 

311 = 0 IF STANDLONE MODE 

313 2. ENVIRONMENT MODE: 

TIC BIT 7 - 1 ETABLE DOES SIZING 

f-^l = 0 PROGRAM ODES SIZING 

I]r bit 6 = 1 SPOOL MESSAGES TO APT IF SCRIPT MODE 

= 0 DON'T SPOOL TO APT 

Ipf BIT 5 = 1 SUPPRESS TTY CONSOLE OUTPUT 

1^2 = 0 ALLOW TTY CONSOLE OUTPUT 

324 BIT A TO BIT 0 ARE NOT USED 

m 3. SWITCH 1 (SOFTWARE SWITCH REGISTER) 

i%% IF ENVIRONMENT MODE BIT 7 (SIZING BIT ) IS SET TO 1. 

Ipo THE SOFTWARE SWITCH REGISTER WILL BE USED. INSTEAD 

329 OF THE HARDWARE TTY CONSOLE SWITCH REGISTER. 

11? 4. SWITCH 2 (USER SWITCH REGISTER) 

332 NOT USED 

111 5, CPU OPTIONS 

335 NOT USED 

I37 6. MEMORY TYPES 1-4 AND MAX MEMORY ADDRESSES 

338 NOT USED 

339 

340 7. INTERRUPT VECTOR 1: , , ^rr»>. r oc/ 

gi USED WHFN ENVIRONMENT MODE BIT 7 = 1;DEFAULT - 254 

342 
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4. 



8. BUS PRIORITY 1: 

NOT USED. 

9. INTERRUPT VECTOR 2: 

NOT USED 

10. BUS PRIORITY 2: 

NOT USED 

11. BASE A:>DRESS: 

USED WHEN ENVIRONMENT MODE BIT 7 = 1;DEFAULT = 176700 

12. DEVICE MAP; 

NOT USED 

13. CONTROLLER DESCRIPTOR WORDS: 

NOT USED 

*4. CONTROLLER DESCRIPTOR WORDS: 
NOT USED 



4.1 



CONTROLLING THE PROGRAM 

THE FOLLOWING KEYBOARD CONVENTIONS ARE USED BY THE KEYBOARD ENTRY 
ROUTINES IN THE PROGRAM: 

A. TO DELETE AN INCORRECT CHARACTER FROM AN ENTRY STRING, TYPE A 
•RU80UT'. TYPING A RU80UT WILL DELETE SUCESSIVE CHARACTERS 
FROM THE INPUT. 

B. TO DELETE AN ENTIRE LINE. TYPE A 'CONTROL U* (*U). 

C. AN ENTRY MUST BE TERMINATED BY EITHER A 'CARRIAGE RETURN* OR 
A 'PERIOD*. THE *PERIOD' TERMINATION IS RECOGNIZED BY THE 
PROGRAM AS A DEFAULT ENTRY REQUEST. WHEN A LINE IS TERMINATED 
BY A *PERIOD' INSTEAD Of A "CARRIAGE RETURN*. THE PROGRAM WILL 
ACCEPT THE ENTERED VALUE AND WILL DEFAULT TO THE PRELOADED VALUES 
FOR ANY REMAINING ENTRIES. 

D. IF A *CONTROL C* IS TYPED DURING DRIVE TESTING MODE. THE PROGRAM 
WILL ENTER THE COMMAND MODE. IF A "CONTROL C* IS TYPED DURING 
•ENTER COMMAND* SEQUENCE. WITH NO DRIVES ASSIGNED. THE PROGRAM 
WILL BE RESTARTED AT LOCATION 204 . OTHERWISE. THE PROGRAM WILL 
RETURN TO 'ENTER COMMAND' PROMPT AND WAIT FOR A CORRECT SEQUENCE 
OF CHARACTERS. IF 'CONTROL C IZ TYPED DURING ANY OTHER ENTRY 
SEQUENCE, THE PROGRAM WILL RETURN TO THE BEGINNING OF THE GROUP 
SEQUENCE BEING ENTERED. 

PARAMETERS 

WHEN THE PROGRAM IS STARTED. THE OPERATOR WILL BE ASKED TO ENTtR 
PARAMETERS. THE FOLLOWING MESSAGE WILL BE DISPLAYED: 
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^00 

^01 

^02 

A03 

^04 

405 

406 

407 

408 

409 

410 

411 

412 
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417 
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419 

420 
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430 
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438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 



•CHANGE PARAMETERS (L) N ?' 

IF THE ENTRY IS A 'N' FOLLOWED BY A CARRIAGE RETURN OR JUST A CARRIAGE 
RETURN (DEFAULT), THE PROGRAM WILL NOT ALLOW ANY PARAMETERS TO CHANGED 
AND WILL CONTINUE. 

IF THE ENTRY IS A 'Y' FOLLOWED BY CARRIAGE RETURN, THE OPERATOR WILL 
BE ALLOWED TO CHANGE THE PROGRAM PARAMETERS. 

THE PROGRAM WILL IDENTIFY THE PARAMETER BY THE NAME GIVEN BELOW, 
DISPLAY THE CURRENT VALUE OF THE PARAMETER AND WAIT FOR THE ENTRY, THE 
PROGRAM WILL TYPE 'INVALID ENTRY' IF THE ENTRY IS NOT CORRECT AND WAIT 
FOR A CORRECT ENTRY TO BE TYPED. (SEE SECTION 4.1.1) 

IF THIS IS THE PROGRAM'S FIRST START, THE STATUS OF THE DRIVES ON THE 
SELECTED MASSBUS SUBSYSTEM WILL BE PRINTED. ON ALL SUBSEQUENT STARTS, 
THIS TYPEOUT MAY BE INHIBITED BY SETTING SW<02> =1. 

THE FOLLOWING IS AN EXAMPLE UNIT STATUS PRINTOUT: 

•UNIT STATUS: 
0 ONLINE RM05 
"i LOAD DEVICE 

2 OFFLINE RM03 

3 NOT PRESENT 

4 NOT PRESENT 

5 NOT AN RM05/3/2 

6 NOT PRESENT 

7 NOT PRESENT' 

THE ABOVE UNIT STATUS SHOWS THAT DRIVE 0 WILL BE TESTED. WHILE DRIVES 
1 - 7 WILL NOT BE TESTED. 



4.1.1 KEYBOARD ENTRY PARAMETERS 



NAME BASE 
WRDCNT 10. 



DEFAULT 
VALUE 



VALUE 
RANGE 



8192. 6 - 8192. 
(SEE NOTE) 



INTRVt 10. 



FUNCTION 

CONTROLS THE MAXIMlfl WORD 
COUNT USED FOR DATA TRANSFERS 

NOTE: THE PROGRAM WILL SELECT 
« MAXimn WORD COUNT, WHICH 
IS DETERMINED BY THE MEMORY 
AVAILABLE. THE MAX. WORD COUNT 
ASSIGNED BY THE PROGRAM 
IS 8192.(1 TRK) WORDS. THE 
OPERATOR MAY SPtCIFIY ANY 
OTHER MAX. WORD COUNT AS LONG 
AS THE VALUE SPECIFIED IS AT 
LEAST 6 WORDS BUT NO LARGER 
THAN 8192. WORDS OR MEMORY 
AVAILABLE. (WHICH EVER VALUE 
IS SMALLER) 



0 - 32767. DETERMINES THE INTERVAL dK 
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A58 
459 
A60 

ttl PASSES 10. 

463 
464 
465 

PATTERN TO. 

468 
469 
470 
471 
472 
473 
474 

475 RANDWC 8 

476 
477 
478 
479 
480 
481 
482 

483 RATIO 8 

484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 

497 ENDING 8 

498 
499 
500 
501 
502 

504 WRTCHK 8 

505 
506 
507 

509 MESSAGE 8 

510 
511 
512 
513 
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1 1 - 32767. 

0 0-15. 

000000 0 OR 1 
000002 0-7 

000001 0 OR 1 

000001 0 OR 1 

000001 0 OR 1 



SEO 001. 

MINUTES) BETWEEN AUTOMATIC 
PERFORMANCE SUMMARY TrPEOuTS; 
NO TYPEOUT IF THIS PARAMETER 
IS 0 OR IF SW<02> =1 

NUMBER OF PASSES TC END CF 
TEST, (THIS PARAMETER IS NOT 
USED WHEN THE PROGRAM IS 
OPERATING IN AUTO RUN MODE) 

IF PARAM£TER=0,DATA PATTERN 
IS RANDOMLY SELECTED. 
IF PARAMSTER>0. SPECIFIES 
ONE OF THE 15. PATTERNS. 
THE SELECTED DATA PATTERN 
IS POINTED BY THE PARAMETER 
"PATTERN". (SEE SECTION 8.4) 

IF PARAMETER = 0, THE WORD 
COUNT IS RANDOMLY SELECTED 
BETWEEN 6 AND THE VALUE 
•WRDCNT'. 

IF PARytWETER 1, THE WORD 
COUNT WILL BE THE VALUE 
•WRDCNT*. 

CONTROLS THE APPROXIMATE 
RATIO OF READ TO WRITE 
COMMANDS. 

VALUE R/W RATIO 

0 15/1 

1 7/1 



4 4/4 

5 3/5 

6 2/6 

7 1/7 

IF PARAMETER - 1. cND OF PASS 
DETERMINED BY THE 'WORDS READ* 
COUNT. 

IF PARAMETER 0. END OF PASS 
IS DETERMINED BY THE NUMBER 
OF SEEKS. 

IF EQ 1. DO AN APPROPRIATE 
WRITE CHECK AFTER EACH WRITE 
COMMAND. IF EQ 0, SELECT WRITE 
CHECK COMMAND RANDOMLY. 

IF PARAMETER =1. DO NOT PRINT 
ERROR MESSAGES FOR DATA ERRORS 
0CCURIN6 AT LOCATIONS DEFINED 
BY THE OPERATOR AS BAD PAC< 
LOCATION. 
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514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

54 b 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 
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4.2 



RANDOM 8 



000000 



0 OR 1 



BADBLK 8 000000 0 OR 1 



IF PARAMETER = 0, PRINT ERROR 
MESSAGES ASSOCIATED WITH BAD 
PACK LOCATIONS. 

IF PARAMETER=0, RANDOM 
DATA BLOCK ADDRESS IS 
USED IN 'T* COMMAND 
IF PARAMETER=1, SEQUENTIAL 
DATA Bi OCK IS USED IN 
•T' COMMAND. 

IF EO TO 1. THE BAD SECTOR 
ENTRY TABLE WILL ALWAYS BE 
INITIALIZED WHEN ASSIGNING 
A DRIVE; 

IF EO TO 0. THE BAD SECTOR 
ENTRY TABLE WILL ONLY BE 
INITIALIZED IF THE PACK SERIAL 
NUMBER HAS CHANGED SINCE THE 
LAST TIME IT WAS READ. 

NOTE: IF THE SERIAL NUMBER 
HAS CHANGED, THIS MOST LIKELY 
MEANS THAT THE PACK OR DRIVE 
HAD BEEN REPLACED WHILE THE 
DRIVE WAS DEASSIGNED. 



4.1.2 CHANGE DEVICE ADDRESS 

THE RM/RH ADDRESS AND VECTOR MAY BE CHANGED WHEN THE PROGRAM IS 
STARTED AT ADDRESS 204 OR IF THE PROGRAM DOES NOT RECEIVE A 
RESPONSE WHEN IT ACCESSES THE DEFAULT RM/RH ADDRESS. 

(DEFAULT ADDRESS = 176700. VECTOR = 254) 

ADDRESS SELECTION EXAMPLES 

EXAMPLE 1 



;N0 CHANGE IN ADDRESS 
;N0 CHANGE IN ADDRESS 



RMCS1 =176700 <CR> 
RMVEC=000254 <CR> 

EXAMPLE 2 

RMCS1 =176700 177200<CR> .-CHANGE BASE ADDRESS TO 177200 
RMVEC=000254 260<CR> .-CHANGE VECTOR ADDRESS TO 260 



KEYBOARD COMMANDS 

THROUGH THE KEYBOARD COMMANDS. THE OPERATOR MAY ASSIGN DRIVES 
FOR TEST CT* COMMAND). WRITE SEQUENTIAL DATA CW COMMAND). 
PERFORM A SEQUENTIAL READ CR' COMMAND). PERFORM WRIT: DATA A 
FOLLOWED BY TEST CWT" COMMAND ), REQUEST A DRIVE PERFORMANCE 
SUfWARY CS' COMMAND), OR DEASSIGN A DRIVE CD* COMMAND). 



AND 
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571 THE 'T*. 'U'. 'R* AND 'WT* COMMANDS ARE EXCLUSIVE TO ONE ANOTHER 

572 ON THE SAME DRIVE UNDER TEST, THE 'D' COMMAND MUST BE ENTERED IN 

573 ORDER TO ISSUE A DIFFERENT COMMAND TO THE SAME DRIVE UNDER TEST. 

574 EXCEPT FOR THE 'S* COMMAND, WHICH CAN BE ENTERED AT ANY TIME 

575 DURING THE TEST. 
576 

5"'? 

578 IF THE PROGRAM WAS STARTED AT ADDRESS 204 OR IF NO DRIVES ARE 

579 ASSIGNED FOR TESTING. THE FOLLOWING MESSAGE WII L BE TYPE BEFORE 

580 ENTERING THE COMMAND MODE. HOWEVER, IF A 'CONTROL C IS TYPED 

581 WHILE TESTING IS IN PROGRESS. THE FOLLOWING MESSAGE WILL BE 
532 OMITTED AND THE PROGRAM WILL ENTER COMMAND MODE. 

583 

584 'NO DRIVES ASSIGNED' 

585 

586 WHEN THE PROGRAM ENTERS THE COMMAND MODE. THE FOLLOWING PROMPT 

587 WILL BE TYPED: 
588 

589 'HH:/>W:SS 

590 ENTER COMMANDS:' 
591 

592 THE PROGRAM WILL THEN ACCEPT ANY OF THE VALID COTWANDS, AT THE 

593 COMPLETION Of A COMMAND. THE PROGRAM WILL EXIT COMMAND MODE AND 

594 TRY TO ASSIGN THE DRIVE (S) THAT WERE REQUESTED. IF THE DRIVE (S) 

595 CANNOr BE ASSIGNED. ONE OF THE FOLLOWING ERROR MESSAGES WILL BE 

596 REPORTED AND THE PROCESS CONTINUES FOR EACH DRIVE. 
597 

598 RESPONSE COMMAND(S) 

599 

600 

601 7DRIVE N LOAD DEVICE T. W, R. W' 

602 7DRIVE N OFFLINE T. W. R. WT 

603 7DRIVE N NOT ASSIGNED D. S 

604 7DRJVE N ALREADY ASSIGNED T. w. R. WT 

605 7DRIVE N NOT PRESENT T. W. R. WT 

606 7DftlVE N UNSAFE T, W. R, WT 

607 7DRJVE N NOT AN RM05/3/2 T. W, R. WT 
608 

609 

610 NEXT. THE PROGRAM WILL PROCESS ALL THE ASSIGNED DRIVES AS FOLLOWS: 
611 

612 WHEN THE PROGRAM IS ASSIGNING THE DRIVES. THE OPERATOR WILL BE ASKED 

613 TO CHANGE THE DRIVC PARAMETERS WITH THE FOLLOWING PROMPT: 
614 

615 'CHANGE DRIVE PARAMETERS (L) N ?' 

616 

617 IF THE ENTRY IS A 'N' FOLLOWED BY A CARRIAGE RETURN OR JUST A CARRIAGE 

618 RETURN (DEFAULT). THE PROGRAM WILL NOT ALLOW ANY DRIVE PARAMETERS TO 

619 BE CHANGED AND WIlL PROCEED TO TEST THE DRIVES AS COMMANDED. 

620 IF THE ENTRY IS A 'Y' FOLLOWED BY CARRIAGE RETURN. THE OPERATOR WILL 

621 BE ALLOWED TO CHANGE THE DRIVE PARAMETERS AS FOLLOWS. 
622 

623 THE PROGRAM WILL FIRST TELL THE OPERATOR WHICH DRIVE IS BEING 

624 REFERENCED FOR CHANGES. 
625 

626 DRIVE # N' 

627 
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628 

629 

650 

651 

632 

655 

65A 

655 

656 

657 

658 

659 

640 

641 

642 

645 

644 

645 

646 

647 

648 

649 

650 

651 

652 

655 

654 

655 

656 

657 

658 

659 

660 

661 

662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 

681 

682 

683 

684 
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THE PROGRAW WILL THEN INFORM THE OPERATOR WHAT THf HARD WIRED MBA 
SERIAL NUMBER IS AND THE PACK SERIAL NLflBfR IS. IN THE FOLLOWING 
FORMAT: 

•MBA S/N: X PACK S/N: V 

WHERE 'X* IS THE HARD WIRED DECIMAL SERIAL NUMBER CONTAINED IN Th£ 
RMSN REGISTER OF THE MBA. IF THE MBA SERIAL NUMBER IS NOT JLf»>ERED 
IN THE RMSN REGISTER, 'X' WILL APPEAR AS •????'. 

WHERE 'V IS THE OCTAL SERIAL NUMBER READ FROM THE DEC144 BAD 
SECTOR FILE ON THE PACK. IF THE DEC144 FILE WAS UNABLE TO BE READ 
SUCCESSFULLY. 'V WILL APPEAR AS 'NONE*. 



THEN ASK FOR ADDRESS LIMJT CHANGES WITH THE 
•ENTER ADDRESS LIMITS: • 



THE PROGRAM WILL 
FOLLOWING TYPE OUT 



THE PROGRAM WILL REQUEST 
PARAMETERS. 



VALUES FOR THE FOLLOWING ADDRESS LIMIT 





DEFAULT 


VALUE 








NAME 


VALUE 


RANGE 




FUNCTION 


MINCYL 


0 


0-821. 


THE 


MINIMUM 


CYLINDER ADDRESS 


MAXCYL 


821. 


0-821. 


THE 


MAXIMUM 


CYLINDER ADDRESS 


MINTRK 


0 


0 - NN 


THE 


MINIMUM 


TRACK ADDRESS 


MAXTRK 


NN 


0 - NN 


THE 


MAXIMUM 


TRACK ADDRESS 


MINSEC 


0 


0 - 51. 


THE 


MINIMlfl 


SECTOR ADDRESS 


MAX SEC 


31. 


0 - 51. 


THE 


MAXIMUM 


SECTOR ADDRESS 


WHERE 


•NN* IS 4. 


FOR AN RM05/02 AND 


18. FOR 


AN RM05. 



THE PROGRAM WILL THEN ASK FOR BAD SECTOR ADDRESSES WITH THE FOLLOWING 
TYPEOUT: 

•ENTER BAD SECTR ADRS:' 

THE FORMATS USED TO ENTER BAD SECTOR ADDRESS LOCATIONS ARE AS 
FOLLOWS: 

EXAMPLE 1: CYL,TRK.SEC= C.T,S<CR> 

A. THE PROGRAM WILL INHIBIT DATA ERROR MESSAGES FOR ERRORS 
OCCURRING AT THE SPECIFIED ADDRESS. 

B. LEADING ZEROS ARE NOT REQUIRED. 

EXAMPLE 2: CYL.TRK.SEC^ C.T<CR> 

A. WHEN I HIS FORMAT IS USED. THE ENTIRE TRACK WILL BE 
CONSIDERED BAD. 

8. DATA ERRORS WILL BE hANDlED AS IN •EXAMPLE 1". 
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685 
686 
687 
688 
689 
690 
691 
. 692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
7K 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
'■39 
740 
741 



EXAMPLE 3: 



rVL.TRK.SEC- C<CR> 



A. WHEN THIS FORMAT ]S USED. THE ENTIRE CtLlNOER WILL BE 
CONSIDERED BAD 

B. DATA ERRORS WILL BE HANDLED AS IN 'FXA^WLE T. 

ir CONTROL C CO IS TYPED AS AN ENTRY, ALL CURRENT BAD SECTOR ENTRIES 
WILL BE LOST AND THE FOLLOWING MESSAGE WILL BE TYPED. 

•• ALL CURRENT ENTRIES LOST 

AFTER TYPING THE PREVIOUS MESSAGE. THE PROGRAM WILL WAIT FOR THE 
OPERATOR TO ENTER ANOTHER BAD SECTOR AS IN THE PREVIOUS EXAMPLES. 

IF 'L' IS TYPED FOR AN INPUT CHARACTER. THE PROGRAM WILL TYPE A LIST 
OF DEC144 BAD SECTORS. AND THE M<AUALLY ENTERED BAD SECTORS, WHICH ARE 
STORED IN THE DRIVE PARAMETER TABLE (DPB) FOR THAT PARTICULAR DRIVE. 

IF THERE ARE NO BAD SECTORS IN THE DPB TABLE, THE FOLLOWING MESSAGE 
WILL BE TYPED: 

•DEC 144 AND MANUAL BAD SECTOR LIST 
• NO ENTRIES 

HOWEVER. IF THERE ARE ENTRIES IN DPB TABLE. THE LIST WILL BE TYPED 
IN THE FOLLOWING FORMAT: 

•DEC 144 AND MANUAL BAD SECTOR LIST 
8.8.3 
16.13 
256 

500.1.29' 

THE ABOVE LIST OF BAD SECTORS. ENTRY 1 INDICATES THAT CYLINDER 8., 
TRACK 8.. SECTOR 3 IS THE BAD SECTOR. ENTRY 2 INDICATES THAT ON 
CVLINDER 16., TRACK 13.. ALL THE SECTORS ARE BAD (ENTIRE TRACK IS 
BAD). ENTRY 3 INDICATES THAT ON CYLINDER 256.. ALL TRACKS AND SECTORS 
ARE BAD (ENTIRE CYLINDER IS BAD). ENTRY 4 INDICATES THAT CYLINDFR 
500.. TRACK 1. SECTOR 29. IS THE BAD SECTOR. 

AFTER TYPING EITHER OF THE TWO PREVIOUS MESSAGES. THE PROGRAM URL 
RETURN TO WAJT FOR MORE ENTRIES TO BE MADE INTO THE BAD SECTOR TABLE. 
AS IN EXAMPLES 1, 2 AND 3. 

TO TERMINATE THE BAD SECTOR ADDRESS ENTRY, TYPE A 'CARRIAGE RETURN' 

IN RESPONSE TO THE ENTRY REQUEST OR TERMINATE THE ENTRY WITH A 'PERIOD' 

FOLLOWED BY A 'CARRIAGE RETURN'. 



4.2.1 'T^ COMMAND 



USED TO ASSIGN A DRIVE (S) FOR A TEST, 
TO PERFORM THE TEST OF THE DRIVE (S). 



THIS COMMAND IS REQUIRED 



FORMAT: TN<CR> 

N = DRIVE NUMBER. 



MAY BE 0 TO 7 OR 'A'. ENTRY MUST BE 



7<.2 

743 

744 

745 

746 

74/ 

748 

749 

750 

751 

75? 

753 

754 

755 

756 

7">7 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

77S 

77U 

77S 

77b 

777 

77S 

779 

780 

781 

782 

783 

784 

785 

786 

787 

788 

789 

790 

791 

792 

793 

794 

795 

796 

797 

798 
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TERMINIATED BY A CARRIAGE RETURN <CR>. 

EXAMPLE- TO<CR> - ASSIGN DRIVE 0 FOR TEST 

TA<CR> - ASSIGN ALL AVAILABLE DRIVES FOR TEST 

•D* COMMAND 

USED TO DEASSIGN A DRIVE (S) BEING EXERCISED. 
FORMAT: DN<CR> 

N = DRIVE NUMBER. MAY BE 0 TO 7 OR 'A*. ENTRY MUST BE 
TERMINIATED BY A CARRIAGE RETURN <CR>. 



S£0 0017 



4.2.5 



EXAMPLE: DO<CR> - OEASSIGN DRIVE 0 

DA<CR> - DEASSIGN ALL DRIVES BEING TESTED. 



4.2.3 *S' COMMAND 



USED TO REQUEST A PERFORMANCE SLWMARY TYPEOUT FOR THE REFERENCED 

DRIVE (S). AFTER THE 'S* COMMAND HAS BEEN PERFORMED, THE PROGRAM 

WILL AUTOMATICALLY RESUME TESTING THE DRIVE<S> WHICH WERE UNDER TEST. 

FORMAT: SN<Cfi> 

N = DRIVE NUMBER. MAY BE 0 TO 7 OR 'A*. ENTRY MUST BE 
TERMINIATED BY A CARRIAGE RETURN <CR>. 

EXAMPLE: SO<CR> - TYPEOUT PERFORMANCE SUMMARY FOR DRIVE 0 

SA<CR> - TYPEOUT PERFORMANCE SUfWARY FOR ALL DRIVES 
BEING TESTED. 



4.2.4 'W COMMAND 



USED TO PERFORM A SEQUENTIAL WRITE OF THE DISK. WITH DATA ACCEPTABLE 
TO THE PERFORMANCE EXERCISER PROGRAM. 



FORMAT: UN<CR> 

N = DRIVE NUMBER. MAY BE 0 TO 7 OR 'A*. 
TERMINATED BY A CARRIAGE RETURN <CR>. 



ENTRY HliST BE 



EXAMPLE: WO<CR> - WRITE A DATA PATTERN ON DRIVE 0. 

WA<CR> - WRITE A DATA PATTERN ON ALL AVAILABLE DRIVES. 

'R' COMMAND 

USED TO PERFORM A SEQUENTIAL READ OF THE DISK. 
FORMAT: RN<CR> 

N = DRIVE NUMBER. MAY BE 0 TO 7 OR 'A'. ENTRY MUST BE 
TERMINATED BY A CARRIAGE RETURN <CR>. 

EXAMPLE: RO<CR> - READ THE DATA ON DRIVE 0. 

RA<CR> - READ THE DA^A ON ALL AVAILABlE DRIVES. 
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799 

800 

801 

8C? 

803 

804 

805 

806 

807 

808 

809 

810 

811 

812 

813 

8K 

815 

816 

817 

818 

819 

820 

821 

822 

823 

82A 

825 

826 

6.7 

828 

829 

830 

831 

832 

833 

85A 

835 

836 

837 

838 

839 

840 

841 

842 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

954 

855 



4.2.6 



5. 



5.1 



5.2 



•WT* COMMAND 

USED TO PERFORM A SEQUENTIAL WRITE DA1A, FOLLOWED BV A 'T' fOMMANO- 
FORMAT: WTN<CR> 

N = DRIVE NUMBER 0 TO 7 OR "A". ENTRV MijST BE TERMINATED BV A 
CARRIAGE RETURN <CR>. 

EXAMPLE: WTO<CR> - WRITE A DATA PATTERN AND TEST DRIVE 0 

WTA<CR> - WRITE A DATA PATTERN AND TEST ALL DRIVES 

PERFORMANCE SUMMARY TYPEOUT 

THE PROGRAM WILL DISPLAY A PERFORMANCE SUWMARY FOR THE DRIVES 
BEING EXERCISED. THIS SUMMARY WILL BE DISPLAYED AUTOMATICALLY 
IF THE PARAMETER MNTRVL' IS NOT ZERO AND SW<02>=0, OR IF THE 
DRIVE HAS REACHED THE DEFINED NIWBER OF PASSES AND SU<08>=0, 
OR IF THE OPERATOR REQUESTS TO DO SO BY USE OF THE 'S* COWAND. 

THE SUMMARY TYPEOUT CONTAINS THE FOLLOWING FIELDS: 



•TIME' 

'DRIVE' 

•PASS' 

■MBA S/N' 

'PACK S/N' 

'WT OFLOW' 

•WRDS WRITN' 

•RD OFLOW 

'WRDS READ' 

•SEEKS' 

'SOFT' 

'HARD* 

•SKI' 

•MJSP' 

•OTHER* 



ELAPSED TIME OF PROGRAM 

DRIVE NUMBER - DRIVE TYPE 

PRE SEN I PASS COUNT FOR THE DRIVE 

HARD WIRED MASS8US ADAPTER SERIAL NU«BER(RHSN> 

SERIAL NUMBER READ FROM THE DEC144 FILE OH THE PACK 

NUMBER OF TI«S 'WRDS WRITN' HAS OVERFLOWED 

TOTAL Nll«ER 0^ WORDS WRITTEN BY THE DRIVE 

NUMBER OF TIMES 'WRDS READ' HAS OVERFLOWED 

TOTAL NlfBER OF WORDS READ BY THE DRIVE 

NUMBER OF SEEK OPERATIONS THE DRIVE PERFORMED 

NU«ER OF SOFT DATA ERRORS 

NUMBER OF HARD DATA ERRORS 

NUMBER OF 'SKI' ERRORS 

NUMBER OF PROGRAM DETECTED POSITIONING ERRORS 
TOTAL ERRORS OF OTHER TYPES 



ALL DATA TRANSFER COUNTS, SEEK COUNTS AND ERROR COUNTS ARE AfCUMULATlVE 
AND WILL NOT BE CLEARED AFTER EACH PASS. 

TO CALCULATE THE TOTAL Nl/BER WORDS READ OR WRITTEN. TAKE ^HE OVERFLOW 
COUNT (RD OFLOW OR WT OFLOW). MULTIPLY IT BY 2. 147.483.647. . THEN ADD 
THAT NUMBER TO THE WORDS READ OR WRITTEN (WRDS READ OR WRDS WRITN). 

NOTE: ERRORS EMI. EM2. EM3. EM4. EM5. I FM10 ARE NOT INCLUDED IN THE 
•OTHER' ERROR TOTAL. 

SOFT/HARD ERROR DEFINITIONS 



5.2.1 HARD ERRORS 



A 'DTE' (DRIVE TIMING ERROR) OR A 'DCK' (DATA CHECK ERROR; 

WHICH OCCURS DURING A READ DATA OR A READ HEADER & DAU OPERA" I DN 
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856 
857 

858 

859 

860 

861 

862 

863 

864 

865 

866 

867 

868 

869 

870 

871 

872 

873 

87A 

875 

876 

877 

878 

879 

880 

881 

882 

883 

88A 

885 

886 

88 

888 

889 

890 

891 

892 

893 

89A 

895 

896 

897 

898 

899 

900 

901 

902 

903 

904 

905 

906 

907 

908 

909 

910 

911 

9V 
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6. 



6.1 



6.? 



6.3 



AND IS NOT CORRECTABLE OR DOES NOT BECOMF CORRECTABLE AFTER THE 
PROGRAM HAS PERFORMED THE COMPLETE RETRr SEQUENCE ON ThE BAD 
SECTOR. 

THE RETRr SEQUENCE IS 16. RE-READS AT TRACK CENTER AND 2 ATTEMPTS 
BOTH AT POSITIVE AND NEGATIVE OFFSETS. 

SOFT ERRORS 

A. tCC CORRECTABLE 'DCK* ERRORS. 

B. 'DCK* £ 'ECH' ERRORS WHICH BECOME ECC CORRECTABLE DURING 
RETRY OR WHICH ARE READ CORRECTLY DURING RETRY. 

C. HEADER READ ERRORS - READ DATA, READ HEADER t DATA, OR 
WRITE DATA COMMANDS 

D. 'DTE' ERRORS WHICH ARE CORRECTED OR WHICH BECOME ECC CORRECTABLE 
'DCK' ERROR DURING THE RETRY SEQUENCE. 



DATA CHECKING & ERROR RECOVERY 



DATA COMPARISON 

DATA COMPARISON OCCURS AFTER EACH 'RDDAT' (READ DATA) OR 'RDHD* 
(READ HEADER AND DATA) OPERATION UNDER THE FOLLOWING CONDITIONS: 

A. THE COMMAND TERMINATED WITH NO ERRORS AND SW<01>-0 

B. THE OPERATION TERMINATED WITH 'DCK' SET AND THE ERROR IS ECC 
CORRECTABLE OR THE SECTOR IN ERROR IS READ CORRECTLY AFTER 
RETRY ATTEMPTS. 

VERIFICATION OF DATA WRITTEN 

DATA VERIFJCATION IS DONE EITHER THROUGH READING THE DATA a-^CK 
AND MATCHING THE DATA WITH ONE OF THE 15. PATTERNS OR THROUGH 
ISSUING A WRITE CHECK COMMAND AFTER DOING A WRITE DATA COWAND. 

BAD ADDRESS FLAGGING 

WHEN A DRIVE IS ASSIGNED TO BE TESTED. THE PROGRAM READS THE BAD 
SECTOR FILE (DECUA) FROM THE DISK AND THEN ALLOWS ADDITIONAL BAD 
SECTORS TO BE ENTERED MANUALLY. 

A MAXIMUM OF 252. BAD SECTORS ARE ALLOWED FOR EACH DRIVE. BOTH 
READING FROM THE DECU4 FILE AND ENTERING FROM KEYBOARD. 

THE MANUALLY ENTERED BAD SECTORS ARE NOT RECORDED TO THE BAD SECTOR 
FILE OF THE DISK CURRENT UNDER TESTING. 

IF ONE OF THE FOLLOWING ERRORS OCCURS AT A LOCATION IDENTIFIED IN 
THE BAD SECTOR TABLE, THE PROGRAM WILL INHIBIT THE ERROR REPORT FOR 
THAI ERROR. 

DATA CHECK ERRORS CDCK') 



913 
9H 
915 
916 
917 

918 
919 
9?0 
921 
922 
925 
^24 

9.6 

92' 

92t 

929 

950 

951 

952 

955 

954 

955 

956 

957 

958 

959 

940 

941 

942 

945 

94<, 

945 

946 

947 

948 

949 

950 

951 

952 

955 

954 

955 

956 

957 

958 

959 

960 

961 

962 

965 

964 

965 

966 

967 

968 

969 
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WRITE CHECK ERRORS CWfE') 
OPERATION INCOMPLETE ERRORS ('OPI') 
DRIVE TIMING ERRORS ( 'DTE* J 

HEADER READ ERRORS CFER -1/ MCRC, 'HfE W/ HCRC OR 'HCRO 
7. ERROR MESSAGES 

ERRORS ARE REPORTED ON THE TTV CONSOLE. THE PROGRAM CONTAINS 
NO CODED ERROR HALTS. IF THE PROGRAM HALTS (ASSUMING, Of COURSE. 
THAT SW<15> IS NOT SET). AN UNRECOVERABLE PROGRAM CONDITION MAS 
OCCURRED OR A CENTRAL PROCESSOR FAILURE HAS OCCURRED. 

ERROR MESSAGES ARE MADE UP OF SEVERAL LINES. EACH TYPE OF ERROR 
HAS SEVERAL OPMONAL LINES WHICH MAY APPEAR WITH IT. ALL OF THE 
POSSIBLE ERROR MESSAGE LINES WHICH MAY APPEAR ARE GIVEN IN THE 
SECTION DESCRIBING THE PARTICULAR ERROR HEADER- 

7.1 ERROR DESCRIPTION LINES 

(THE MESSAGE TAGS ARE GIVEN FOR REFERENCE.) 



SEO 0020 



MESSAGE 
TAG 



EMI 



EM2 



EM5 



EM4 



EMS 



£M6 



TEXT 



RH CONTROLLER INTERRUPT OCCURRED (RMAS=0) 

THE RH CONTROLLER INTERRUPTED AND THE ATTENTION SUMMARY 
REGISTER (RMAS) WAS CLEARED. 

UNEXPECTED ATTENTION OCCURRED 

THE INDICATED DRIVE INTERRUPTED BUT THE DRIVE WAS NOT 
PERFORMING AN OPERATION. 

MASSBUS PARI TV ERROR (MCPE=1) 

THE RH DETECTED A CONTROL BUS PARITY ERROR WHEN READING 
THE INDICATED REGISTER FROM THE INDICATED DRIVE. 

MASSBUS PARITY ERROR (PAR=1) 

THE INDICATED RM DETECTED A CONTROL BUS PARITY ERROR 
WHEN THE RH LOADED THE SPECIFIED REGISTER. 

ADDRESS PLUG CHANGE BIT SET 

THE 'OPE* BIT WAS SET WHEN THE INDICATED DRIVE INTERRUPTED. 
RH DIDN'T RESPOND TO ADDRESSING' 

WHEN THE PROGRAM ADDRESSED THE RH. NO RESPONSE WAS RECEIVED 
FROM THE INDICATED ADDRESS. 



EM10 UNCORRECTABLE MASSBUS PARITY ERROR 



NWCWO Vv%.00 
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SEO 00? 1 



970 
971 
972 
973 
97^ 
975 
976 
977 
978 
979 
980 
931 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
lOOl 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
:024 
1025 
1026 



THE PROGRAM HAS TRIED 3 TIMES '0 READ OR WRITE THE INDICATED 
REGISTER. 

EMU FATAL MASSBUS PAHlTy ERROR 

A CONTROL BUS PARITY ERROR OCCURRED WHEN THE RH ATTEMPTED 
TO PROCESS A PREVIOUS, DIFFERENT PARITY ERROR. 

EM12 PE'^SISTENT DEVICE UNSAFE 

THE DRIVE BECAME UNSAFE; DRIVE CLEAR TO THE DRIVE DIf> 
NOT CLEAR THE UNSAFE CONDITION. THE PROGKAM WILL 
AUTOMATICALLY DEASSIGN THE DRIVE. THE DRIVE CANNOT 
BE EXERCISED UNTIL THE UNSAFE CONDITION HAS BEEN 
CLEARED BY MANUAL INTERVENTION. 

EMIi OPERATION NOT COMPLETED WITHIN TIME LIMIT 

THE DRIVE DID NOT COMPLETE THE OPERATION WITHIN 10. SECONDS 
AFTER THE OPERATION WAS INITIATED. 

EM14 UNIT WENT OFFLINE 

'HE DRIVE WENT OFFLINE DURING THE INDICATED OPERATION, 
C^HE 'MOL' BIT BECAME ZERO.) THE PROGRAM WILL A ITOHATICALLY 
DL ASSIGN THE DRIVE. THE OPERATOR MUST REASSIGN iHE DRIVE 
WITH THE 'T* COMMAND TO RE-INITIATE TESTING. 

EMI 5 NO HESPONSE TO PORT REQUEST 

THE PROGRAM IS TESTING A DUAL PORT DRIVE WHICH HAS NOT SW^C^•ED 
TO THt REQUESTING PORT WITHIN 15. SECONDS AFTER PORT REQUEST 
TO THE DRIVE FROM THE REPORTING PORT. 

EM20 HEADER TRC ERROR 

A HEADER CRC ERROR WAS DETECTED AT THE INDICATED DIStC ADDRESS. 
THE CONTENTS OF THE HEADER ARE DISPLAYED. THE OPERATIOfJ WILL 
BE RETRIED 3 TIMES. 

EM21 DATA CHECK ('DCK') ERROR 

A DATA CHECK ERROR WAS DETECTED AT THE INDICATED SECTOR. 
THE FULL RETfi' SEQUENCE (INCLUDING OFFSET) WILL BE INITIATED 
FOR THE SECTOR IN ERROR IF THE ECC HARD ERROR CECH) BIT 
IS SET. 

EM22 WRITE CHECK ERRi'R - DATA CHECK CDCK') SET 

A WRITE CHECK ERPOR OCCURRED AND THE DATA CHECK CDCK') BIT 
WAS SET. IF 'ECH' IS NOT SET. THE OPERATION WILL BE RETRIED 
UP TO 3 TIMES; IF THE 'EfH' BIT IS SET. THE OPERATION WILL 
BE RETRIED UP TO It. TIMES. 

EM23 WRITE CHECK ERROR - DATA CHECK COCK') NOT SET 
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'02? 

1028 

1029 

1030 

1031 

1032 

1033 

103A 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

W3 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

'C51 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

10^6 

1077 

1078 

1079 

1080 

1081 

1082 

1083 



EM24 

EM25 
EM26 

EM27 
EM50 
EM31 
EM32 
EM33 
EM34 
EM35 
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A WRITE CHECK ERROR OCCURRED AND 'DCK* WAS fgOT SET. THE 
WORDS WHICH CAUSED THE ERROR Af<E DISPLAYED IN THE ERROR 
MESSAGE. THE OPERATIOM WILL BE RETRIED 3 TIMES, 

HEADER READ ERROR - 'FMT' BIT DROPPED 

A WRITE DATA. WRITE CHECK DATA, Ok A READ DATA WAS BEING 
PERFORMED AND A 'FMT' ERROR OCCURRcD. THE PROGRAM RE-READ THE 
HEADER OF THE ERROR SECTOR AND THE 'HCRC BIT WAS SET. THE 
CONTENTS OF THE HEADER ARE DISPLAYED. THE OPERATION WILL 
BE RETRIED 3 TIMES. 

HEADER READ ERROR - HEADER COMPARE CHCE') ERROR 

SIMILAR TO EM24. EXCEPT THAT THE 'HCE* ERROR BIT WAS 
SET INITIALLY. THE OPERATION WILL BE RETRIED 3 TIMES. 

rORMAT ERROR CFER') 

FORMAT ERROR OCClWRED. WHEN THE HEADER WA." RE-READ, THE 
'HCRC BIT WAS NOT SET, THE CONTENTS OF TH- HEADER ARE 
DISPLAYED. THE OPERATION WILL BE RETRIED 3 TIMES, 

HEADER COMPARE CHCE') ERROR 

SIMILAR TO EM26 EXCEPT THAT THE 'HCE' BIT WAS .ET INITIALLY. 
THE OPERATION WILL BE RETRIED 3 TIMES. 

MISCELLANEOUS DRIVE ERROR 

THIS MESSAGE IS GIVEN FOR THE FOLLOWING ERROR BITS- 
•AOE'. 'RMR*. 'ILF'. OR MLR* 

OPERATION INCOMPLETE COPJ') ERROR 

AN OPERATION INCOMPLETE ERROR OCCURRED AT THE INDICATlD 
SECTOR. 

DRIVE TIMING CDTE'; ERROR 

DRIVE TIMING ERROR OCCURRED ON THE INDICATED SECTOR. THE 
OPERATION WILL BE RETRIED 3 TIMES. 

PARITY ('PAR') ERROR AFTER OPERATION STARTED 

THE 'PAR' BIT WAS SET WHEN THE OPERATION WAS COMPLETED. THE 
OPERATION WILL BE RETRIED 3 TIMES. 

WRITE CLOCK FAILURE CWCF') 

A WRITE CLOCK FAILURE OCClWRED DURING THE OPERATION. THE 
OPERATION WILL BE RETRIED 3 TIMES. 

INVALID ADDRESS CIAE') ERROR 

AN INVALID ADDRESS ERROR OCCURRED DURING THE OPERATION. 
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^084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 

nil 

1112 
1113 
IIU 
111!) 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1158 
1159 
1140 



EM36 



EM40 



EM41 



EM42 



EM43 



EM44 



EM45 



EM46 



EM50 
EM51 
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SEO 00?^. 

WRITE LOCK CWLE') ERROR 

A WRITE OPERATION WAS ATTEMPTED BUT THE DRIVE WAS WRITE 
LOCKED. 

RH CONTROLLER OR UNI8US TRANSFER ERROR 

•TRE* IS SET IN THE RH CONTROL REGISTER AND NO DRIVE 
ERROR HAS OCCURRED. THE OPERATION WiLl BE RETRIED 5 
Uy\ES IF THE ERROR WAS CAUSED BV 'DLT', 'UPE'. 'MXF ' , 
OR 'MDPE*. 

BUS ADDRESS OR WORD COUNT INCORRECT 

NO DRIVE ERROR OCCURRED BUT EiTHER THE BUS ADDRESS INDICATFS 
THAT AN INCORRECT NUMBER OF WORDS WERE TRANSFERED OR THE 
WORD COUNT REGISTER IS NOT ZERO. 

DATA COMPARE ERRORS - NO DRIVE ERROR DETECTED 

NO SUBSYSTEM ERROR WAS SIGNALED; HOWEVER, THE DATA DOES NOT 
COMPARE. 

CAN'T MATCH DATA READ WITH A PATTERN 

THE DATA IN THE BUFFER DOES NOT MATCH ANY Of THE STANDARD 
PATTERNS. 

ERROR BIT(S) SET. BUT NO ERROR SIGNALED BY THE RH CONTROILER 

THE OPERATION COMPLETED NORMALLY; HOWEVER. THE PROGRAM 
FOUND EITHER ERROR BITS IN THE RM SET OR ERROR BITS IN 
THE RH CCWTROLLER SET. 

ECC LOGIC FAILURE 

DURING 'DCK' ERROR PROCESSING. THE CONTENTS OF THE ECC 
POSITION REGISTER (RMECl) OR THE CONTENTS OF ECC PATTERN 
REGISTER (RMEC2) WERE NOT VALID. THE POSITION REGISTER WAS 
EITHER 0 OR GREATER THAN 010040. OR THE PATTERN REGISTER 
CONTAINED ZEROS. 

BUS ADDRESS OR WORD COUNT NOT CONSISTENT 

THE PROGRAM WAS PROCESSING AN ERROR AND FOUND THAT THE 
NUMBER OF WORDS TRANSFERED AS INDICATED BY THE BUS ADDRESS 
REGISTER DOES NOT AGREE WITH THE TRANSFER COUNT FROM THE 
WORD COUNT REGISTER. 

SEEK INCOMPLETE ERROR 

THE DRIVE SIGNALED EITHER 'SKI' ERROR. 

NOT USED 



DEVICE UNSAFE 



L 2 
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SEO 0024 



1U' 
'K2 
K3 
K4 
K5 
K6 
K7 
K8 
K9 
150 
151 
132 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 



THE INDICATED DRIVE UNSAFE ERROR OCCURRED; THE ERROR WAS 
CLEARED BY A 'DRIVE CLEAR' INSTRUCTION. 



7.2 DETAIL ERROR LINES 

THE LINE NUinBERS GIVEN BELOW ARE FOR REFERENCE ONLY. 
LINE 1 



HH:MM:SS 

'HH:MM:SS' IS THE TIME SINCE THE PROGRAM WAS STARTED. 
(HOURS. MINUTES. SECONDS) 

LINE 2 



•PRSNT COMMAND= XXXX PREV COMMAND^ yVVY* 
MNEMONICS USED FOR THE COMMANDS ARE DEFINED BELOW: 



7) 
11) 



17) 



SEEK - SEEK (OCTAL 5) 
RECAL - RECALIBRATE (OCTAL 
DRVCLR - DRIVE CLEAR (OCTAL 
RELSE - RELEASE (OCTAL 13) 
OFFSET - OFFSET (OCTAL 15) 
RTC - RETURN TO CENTERLINE (OCTAL 
READIN - READIN PRESET (OCTAL 21) 
PACK - PACK ACKNOWLEDGE (OCTAL 23) 
SEARCH - SEARCH (OCTAL 31) 
•6ETRE6 - GET REGISTERS (OCTAL 41) 
•SETfMT - SET FORMAT (ECI OR HCI) (OCTAL 
•SELDRV - SELECT DRIVE (OCTAL 45) 
WCKD - WRITE CHECK DATA (OCTAL 51) 
WCKHD - WRITE CHECK HEADER ft DATA (OCTAL 
WRTDAT - WRITE DATA (OCTAL 61) 
WRTHD - WRITE CHECK HEADER I DATA (OCTAL 
RDDAT - READ DATA (OCTAL 71) 
RDHD - READ HEADER & DATA (OCTAL 73) 



43) 



53) 
63) 



* SPECIAL RM DRIVER COMMAND (NOT A CONTROLLER COMMAND) 
(DISPLAY Of THE RH/RM REGISTERS IN TWO GROUPS: 

RMCS1, RMCS2. RMOS, RMERl . RMER2. RMECl AND RMEC2 FORM THE FIRST 

GROUP; ALL THE O^HFR REGISTERS ARE IN THE SECOND GROUP. 

IF SW<05> IS SET, ONLY THE REGISTERS IN THE FIRST GROUP WILL BE 

DISPLAYED.) 

THE ABOVE LINE WILL BE TYPED IF THE ERROR OCCURRED DURING 
THE NON-DATA TRANSFER PART OF THE OPERATION. 

ERROR AT BAD TRACK/SECTOR' 
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1198 

1199 

1200 

1201 

1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 

1213 

12K 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

1224 

1225 

1226 

1227 

'228 

1229 

1230 

1231 

1232 

1233 

1?3A 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 
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THE ABOVE LINE WILL BE PRINTED IF A DATA ERROR OCCURES AT AN ADDRESS 
ON THE DISK WHICH THE OPERATOR HAS IDENTIFIED AS BEING BAD. PARAMETER 
•NOTPRT' MUST BE 0 FOR THE ERROR TO BE REPORTED. 

A WORD CALLED 'STATUS' IS DISPLAYED WITH THE RM REGISTERS. THE 
CONTENTS OF THIS WORD IDENTIFY HOW THE ERROR WAS PROCESSED BY THE 
RM DRIVE HANDLER ROUTINE. (SEE SECTION 9.7) 

LINE 3 



SEO 002 



ERROR AT CXXX TYY SZZ PREV ADDR= CUUU TVV SWW 

THE ACTUAL ADDRESS OF THE ERROR SECTOR AND THE PREVIOUS 
DISK ADDRESS ARE GIVEN IN THIS LINE. CYLINDER, TRACK, t 
SECTOR ADDRESSES ARE IN DECIMAL. 

LINE 4 



PRSNT ADDR= CXXX TYY SZZ PREV APOft=^ ClAJU TVV SWW 

THIS LINE IDENTIFIES THE ADDRESS WHEN THE ERROR WAS DETECTED; 
THE PREVIOUS ADDRESS IS ALSO GIVEN. CYLINDER. TRACK, & SECTOR 
ADDRESSES ARE GIVEN IN DECIMAL. 

LINE 5 



START CYL= XXX END f Yl - VYY 

THIS LINE IDENTIFIES THE STARTING CYLINDER OR A SEEK (IMPLIED) 
AND THE DESTINATION CYLINDER. CYLINDER ADDRESSES ARE IN 
DECIMAL. 

LINE 6 



START CYL= XXX END CYL= YYY ACTUAL CYL= 222 

THIS LINE IDENTIFIES THE STARTING CYLINDER OF AN IMPLIED SEEK, 
THE DESTINATION CYLINDER, AND THE CYLINDER THE DISK ACTUALLY 
STOPPED AT. CYLINDER ADDRESSES ARE IN DECIMAL. 

LINE 7 



RI>«A= XXXX RMWC= YYYY 

THIS LINE GIVES THE CONTENTS OF THE RH CONTROLLER BUFFER ADDRESS 
REGISTER AND THE RH CONTROLLER WORD COUNT REGISTER. THIS LINE IS 
NOT PRINTED IF SW<05> IS NOT SET. 

LINE 8 



START CYL= XXX START TRK= YY START SECTOR= 22 
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SEQ 0026 



mi THIS LINE IDENTIFIES THE STARTING DIS< ADDHtCS OF THE PRESENT 

1257 OPERATION. CYLINDER, TRACK, AND SECTOR VALUES ARE DECIMAL. 
1258 

1259 LINE 9 

1260 

1261 

1262 RMI>A= XXXX RMCA= YYYY 

126A THIS LINE GIVES THE CONTENTS OF THE RM TRACK AND SECTOR 

1265 ADDRESS REGISTER AND THE CONTENTS OF THE DESIRED CYLINDER 

1266 ADDRESS REGISTER. THIS LINE IS NOT PRINTED IF SW<05> IS NOT 

1267 SET. 

1269 LINE 10 

1270 

1272 BUFFER ADDR= XXXX WRD CNT= YYYY ACTUAL NUTBR WRDS XFRD- ZZIZ 

1274 THIS LINE GIVES THE STARTING ADDRESS OF THE BUFFER USED FOR THE 

1275 CURRENT DATA TRANSFER OPERATION, ITS SIZE (WORD COUNT), AND THE 

1276 ACTUAL NUMBER OF WORD TRANSFERED. THE STARTING ADDRESS OF THE 

1277 BUFFER IS IN OCTAL, THE WORD COUNT AND WORDS TRANSFERED VALUE 

1278 ARE IN DECIMAL. 
1279 

1280 LINE 11 

1281 

1282 

1285 GOOD DATA= XXXX BAD DATA= YYVY SECT POS= ZZZ 
1284 

1285 THIS LINE GIVES THE GOOD DATA. THE ACTUAL DATA FROM THE DISK, 

1286 AND THE LOCATION IN THE SECTOR OF THE ACTUAL DATA. THE SECTOR 

1287 POSITION IS IN DECIMAL. 
1288 

1289 LINE 12 

1290 

1291 

1292 HEADER CONTENTS OF ERROR SECTOR= XXXX XXXX XXXX XXXX 
1293 

1294 THIS LINE GIVES THE CONTENTS OF THE HEADER OF THE SECTOR WHICH 

1295 GAVE THE ERROR. 
1296 

1297 LINE 13 

1298 

1299 

1300 RMEC1= XXXX RMEC2= YYYY 
1301 

1302 THIS LINE WILL BE PRINTED AFTER A SUCESSFUL RETRY OF A SECTOR 

1303 WHICH BECAME ECC CORRECTABLE DURING RETRY. 
1304 

1305 LINE 14 

1306 

1307 

1308 ECC CORRECTABLE WITHOUT 0FFSE1 

ilw THE SECTOR IN ERROR IS ECC CORRECTABLE; NO RETRY ATTEMPTS ARE 

1ZV NFCESSARY. 
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SEO 0027 



'512 

1313 LINE 15 

13U 

'315 

1316 READ CORRECTLr AT (NEG OR POS^ OFFSET 
'317 

1318 THE SECTOR IN ERROR WAS READ WITHOUT ERROR AT THE INDICATED 

1319 OFFSET VALUE. 
1320 

1321 LINE 16 

1322 

1324 ECC CORRECTABLE AT (NEG OR POS) OFFSET 
1325 

1326 THE SECTOR IN ERROR BECAME ECC CORRECTABLE AT THE INDICATED 

1327 OFFSET. 

1329 LINE 17 

1330 

1331 

1332 CORRECTED ON X RETRV 
1333 

1334 THE OPERATION WAS PERFORMED ERROR FREE ON THE INDICATED RETRY 

1335 ATTEMPT. 

1337 LINE 18 

1338 

1339 

1340 UNCORRECTABLE AFTER X RETRIES 

1341 

1342 THE OPERATION COULD NOT BE PERFORMED CORRECTLY AFTER THE 

1343 INDICATED NUMBER OF RETRY ATTEMPTS. 
1 344 

13<»5 LINE 19 

1 346 

1347 

1348 DIFFERENT ERROR DURING RETRY 

1349 

1350 UWILE THE PROGRAM WAS RETRYING THE ERROR. A DIFFERENT OCCURRED, 

1351 JF THIS LINE IS PRINTED. THE RH/RM REGISTERS WILL ALSO BE 

1352 PRINTED (SEE LINE 2). 
1555 

1354 LINE 20 

1355 

1356 

1357 DATA COMPARISON ERRORS 

1 358 

1359 A PRINTOUT OF THE DATA COMPARISON ERRORS FOLLOW THIS LINE. 

1360 

1361 LINE 21 

1362 

1363 

1364 TOTAL COMPARE ERRORS= XXXX 

1 365 

1366 THIS LINE GIVES ^HE TOTAL DATA COMPARISON ERROR COUNT. THE 

1367 VALUE GIVEN 15 IN DECIMAL. 
1368 
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1569 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1585 

1586 

1587 

1588 

1589 

1390 

1591 

1592 

1595 

1594 

1595 

1396 

1397 

1398 

1599 

1400 

1401 

1402 

1405 

1404 

1405 

1406 

1407 

1408 

1409 

1410 

1411 

1412 

1415 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 
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LINE 22 



THE DATA COMPARED OK 



SEO 0O?& 



THIS LINE INDICATES THE RESULTS OF THE DATA COMPARISON FOLLOWING 
ECC CORRECTION. 

LINE 23 



ECC CORRECTION RESULTS 

THE PROGRAM PERFORMED ECC CORRECTION AND THE RESULTS ARE REPORTED, 
THE ADDRESS IN MEMORY OF THE WORD(S) IN ERROR ARE GIVEN. THE WORD<S) 
BEFORE CORRECTION AND THE WORD(S) AFTER CORRECTION ARE PRINTED. 

LINE 24 

ERROR BURST BEGINS AT WORD XXX IN DATA FIELD OF ERROR SECTOR 

THIS IS AN INFORMATIONAL LINE WHICH WILL BE PRINTED FOR 'DCK* ERRORS 
WHICH ARE ECC CORRECTABLE OR WHICH BECOME ECC CORRECTABLE DURING 
RETRY. 'XXX' IS THE WORD OFFSET VALUE FROM 'RMECT AND IS IN 
DECIMAL. 

LINE 25 

ERROR WAS NOT IN THE DATA READ - 
ECC CORRECTION CAN'T BE PERFORMED 

THE DATA ERROR WAS NOT IN DATA TRANSFERED TO MEMORY. 
LINE 26 

CONTENTS OF THE ERROR SECTOR (REPORTED ABOVE) 

IF SW<03> IS SET. THE SECTOR WHICH GAVE THE 'DCK'. 'DTE' OR, 
•WCF' ERROR OR 'HARD* DATA CHECK ERROR IS PRINTED. THE 
CONTENTS OF THE SECTOR FOLLOW THIS LINE. 

LINE 27 

TOTAL ERRORS :X WOFL:N WRDS WRITN: YYYY ROFL:N WRDS READ: ZZiI 

THIS IS THE LAST LINE PRINTED FOR ALL NON-POSITIONING 
TYPE ERRORS. 

•ERRORS IS THE ^OTAL ERROR COUNT FOR THE DRIVE AND INCLUDES 
EVERY ERROR DETECTED. REGARDLESS OF TYPE. 

•WOFL' NUMBER OF TIMES 'WRDS WRITN' HAS OVERFLOWED 

'WRDS WRITN' IS THE TOTAL NlWBER OF WORDS WRITTEN THE DRIvE. 
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S£0 OO^'i' 



1^26 

K27 'ROFL' NUMBER OF TIMES 'WRDS READ' HAS OVERFLOWED 

K28 'WRDS READ' IS THE TOTAL NUMBER OF wORD READ Sr THE DRIVE. 

H30 LINE 28 

U32 

U33 TOTAL SEEKS: XXX TOTAL POS ERR= rrv TOTAL SKI ERR" Z 
U34 

-14,35 THIS IS Th:- LAST LINE PRINTED FOR ALL POSITIONING TrPE ERRORS. 
K36 

U37 'TOTAL SEEKS* IS THE TOTAL NUMBER OF SEEK OPERATIONS PERFORMED 

1438 BV THE DRIVE. 
U39 - 

1440 'TOTAL POS ERR' IS THE TOTAL NUMBER OF PROGRAM DETECTED POSITIONING 

1441 ERROR BY THE DRIVE. 
1442 

1443 "TOTAL SKI ERR' IS THE TOTAL NUMBER OF 'SKI' ERRORS SIGNALED BY 

1444 THE DRIVE. 
1445 

1446 

1447 8. PROGRAM DESCRIPTION 

1448 

1449 

1450 8.1 PROGRAM OPERATION 

1451 

1452 WHEN THE PROGRAM IS STARTED, PROVIDING APT TTY ENABLE BIT IS SET 

1453 OR DIAGNOSTIC LOADED BY OTHER THAN APT SCRIPT MODE, ALL TABLES BM> 

1454 PARAMETERS ARE CLEARED OR INITIALIZED. THE PARAMETERS kMICH ARE 

1455 UNDER OPERATOR TTY ENTRY CONTROL ARE CHECKED FOR VALIDITY AND 

1456 CONSISTENCY. RH CONTROLLER INTERRUPT ENABLE ('IE') IS SET, TTY 
145/^ KEYBOARD INTERRUPT ENABLE IS SET, AND THE KWll-L OR KWll-P CLOCK 
1458 IS STARTED. COMMAND ENTRIES WILL NOW BE ACCEPTED BY THE PROGRAM. 
1459 

1460 THE PROGRAM SCANS ITS INTERNAL ASSIGNMENT TABLES, LOOKING FOR: 
1461 

1462 1> DRIVES TO ASSIGN/DEASSJGN 

1463 2) PERFORMANCE SUMMARY TYPEOUT REQUESTS 

1464 3) DRIVES REQUIRING COMMAND INITIATION. BUFFER ASSIGNEMENT. 

1465 OR PARAMETER SELECTION. 

1466 4) DRIVES COMPLETING CURRENT OPERATIONS. 
1467 

1468 THE PROGRAM CONTINUES SCANNING ITS TABLES UNTIL AN ENTRY IS FOUND. 

1469 IN THE CASE OF THE PROGRAM AT INITIAL START. THE FIRST ENTRY WILL 

1470 BE MADE BY THE OPERATOR WHEN A DRIVE IS ASSIGNED CT' COMMAND). 
1471 

1472 WHEN A DRIVE IS ASSIGNED. THE KEYBOARD ENTRY ROUTINE VERIFIES THAT THt 

1473 DRIVE IS PRESENT, IS AN RM05/3/2, AND IS ONLINE. THE ASSIGT^ENT 

1474 ROUTINE THEN ISSUES A 'READIN PRESET' INSTRUCTION. SETS •FMT16'. WO 

1475 ISSUES A 'RECALIBRATE' INSTRUCTION. 
1476 

1477 PARAMETERS FOR THE OPERATION ARE SELECTED AND A BUFFER IS ASSIGNED. IF 

1478 THE OPERATION IS A WRITE OR WRITE CHECK COMMAND. THE ASSIGNED BUFFER 

1479 WILL BE FILLED WITH THE SELECTED PATTERN. (WRITE CHECK COMMANDS ARE 

1480 ISSUED AFTER EACH WRITE COMMAND. THE WRITE CHECK COMMAND USES THE 

1481 PARAMETERS SELECTED FOR THE PRECEDING WRITE COMMAND.) CONTROL 

1482 iS THEN PASSED TO THE COMMAND INITIATION ROUTINE. 
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■•485 

U85 

K86 

KB? 

KS8 

H89 

K90 

K91 

U92 

I ',93 

K9<, 

K95 

H96 

K97 

1A98 

K99 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

15K 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1558 

1539 



THE COMTWND INITIATION ROUTINE FIRST . OOKS AT THE CrilNDER ADDRESS OF 
THE REQUESTED OPERATION. If THE DRIVE MUST SEEK TO ANOTHER CYLINDER TO 
PERFORM THE OPERATION, THE PROGRAM ISSUES A SEARCH INSTRUCTION 
TO THE DRIVE WITH A 'TARGET' SECTOR WHICH IS 5 SECTORS EARLIER 
THAN THE 'TRANSFER* SECTOR. (THIS ALLOWS THE PROGRAM TO INITIATE 
OPERATIONS ON ANOTHER DRlVC WHILE THE PRESENT DRJVE. OR OTHER 
DRIVES, ARE SEARCHING FOR 'TARGET' SECTORS. ALL SEEKS ISSUED Br 
THE PROGRAM ARE IMPLIED SEEK SEARCH OPERATIONS.) WHEN A SEAPCHJNG 
DRIVE FINDS THE 'TARGET' SECTOR AND INTERRUPTS, THE PROGRAM THEN 
ISSUES THE REQUESTED COWAND TO THE DRIVE THAT INTERRUPTED. 

WHEN THE DATA TRANSFER OPERATION IS COMPLETE, THE DRIVE REGISTERS 
ARE STORED AND A DATA TRANSFER IS INITIATED FOR A WAITIW DRIVE. 

IF THE OPERATION HAS BEEN COMPLETED NORMALLV. THE SAVED DRIVE REGISTERS 
ARE CHECKED TO VERIFY THAT NO ERROR BITS ARE SET; THE RH CONTROLLER 
BUS ADDRESS AND WORD COUNT ADDRESS REGISTERS ARE CHECKED TO VERIFY 
THAT THE CORRECT NUMBER OF WORDS HAVE BEEN TRANSFERED AND THAT THE 
TWO REGISTERS ARE CONSISTENT WITH EACH OTHER; AND IF THE COMMAND WAS 
A READ COMMAND, THE DATA BUFFER IS COMPARED. WHEN THIS SEQUENCE IS 
COMPLETED, THE DRIVE IS RETURNED TO THE ASSIGNED, INACTIVE LIST. THE 
PROGRAM THEN INITIATES A DATA TRANSFER ON A WAITING DRIVE AND 
RESELECTS AND REINITIATES ANOTHER OPERATION ON THE RELEASED DRIVE. 



ERRORS WHICH OCCUR ARE PROCESSED IN THE FOLLOWING ORDER. 
ERRORS WILL BE REPORTED AS THE ?IRST ERROR TYPE CHECKED- 



MULTIPi.E 



A. ERRORS REPORTED FOR OPERATIONS WHICH HAVE NOT COMPLETED NORMALLr. 

OPERATION NOT COMPLETED WITHIN TIME LIMIT - EM13 
UNIT WENT OffLlNE - EMU 

8. ERRORS REPORTED FOR OPERATIONS WHICH COMPLETE NORMALLY. 

CORRECTABLE UNSAFE - EM60 

DRIVE TIMING ERROR - EM32 

DATA CHECK ERROR - EM21 

WRITE CHECK WITH OCK SET - EM22 

HEADER CRC ERRORS - EM20 

FORMAT ERRORS - EM24. EM26 

HEADER COMPARE ERRORS - EM25, EM27 

PROGRAM DETECTED POSITIONING ERROR - EM51 

SEEK INCOMPLETE ERROR - EM50 

WRITE CHECK WITHOUT 'DCK' SET - EM23 

RH CONTROLLER OR UNI8US TRANSFER ERROR - EM40 

•OPT ERROR - EM31 

•PAR' ERROR - EM33 

'WCF' ERROR - EM34 

'lAE' ERROR - EM35 

•WLE' ERROR - EM36 

MISCELLANEOUS DRIVE ERROR - EM30 

C. ERRORS NOT FLAGGED BY THE HARDWARE ERROR DETECTION lOGK. 

BUS ADDRESS OR WORD COUNT INCORRECT - EM41 

DATA COMPARE ERRORS - NO DRIVE ERROR DETECTED - EM42 
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1540 

15A1 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1578 

1579 

1580 

1581 

1582 

1583 

1584 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 
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CAN'T MATCH DATA READ WITH A PATTtRN - fM43 

ERROR BJT(S) SkT, BUT NO Ei^ROR SIGNALED BV THE RH CONTROLLER - E«44 
ECC LOGIC FAILURE - EM45 

BUS ADDRESS OR WORD COUNT NOT CONSISTENT - EM46 

8.2 DUAL PORT OPERATION 

DUAL PORT OPERATION IS NEARLY IDtNTIfAL TO THE OPERATION DESCRIBED 
IN SECTION 8.1. THE DIFFERENCES ARE IN COMMAND SEQUENCE INITIATION 
AND COMMAND TERMINATION. 

WHEN THE DUAL PORT HANDLER ROUTINE IN THE EXERCISER PROGRAM RECEIVES 
A REQUEST FOR A DRIVE, THE PROGRAM VERIFIES THAT THE DRIVE IS 
ONLINE. THE DRIVE IS SELECTED AND THE RMCS1 REGISTER IS READ TO 
TEST THE "DVA"BIT. IF THE DRIVE IS IN NEUTRAL, THIS WILL SEIZE THE 
DRIVE. IF THE DRIVE IS SEIZED BY THE OTHER PORT, A DRIVE CLEAR COMMAND 
IS ISSUED TO THE DRIVE TO SET 'PORT REQUEST*. THE PROGRAM THEN CHECKS 
•DVA* IN 'RMCSr. IF THE DRIVE IS AVAILABLE AS INDICATED BV THE 'DVA' 
BIT. THE COMMAND SEQUENCE WILL BE INITIATED IN THE NORMAL MANNER (SEE 
SECTION 8.1 ABOVE). IF 'DVA' WAS NOT SET, THE PROGRAM MAKES AN ENTRY 
FOR THE DRIVE IN AN INTERNAL 'PORT REQUEST PENDING* TABLE AND 
STARTS A 15. SECOND TIMER FOR THE DRIVE. IF THE DRIVE HAS 
NOT SWITCHED TO THE REQUESTING SYSTEM WITHIN THE 15. SECOND INTERVAL, 
THE PROGRAM REPORTS A 'NO RESPONSE TO PORT REQUEST' ERROR. NORMALLY 
THIS ERROR MESSAGE INDICATES A FAILURE IN THE DUAL PORT CONTRa 
LOGIC IN THE DRIVE BEING TESTED; HOWEVER, J«>ER CERTAIN CONDITIONS 
(E.G. MASS8US PARITY ERRORS BEING REPORTED ON THE OTHER SYSTEM 
ON A TTV). THE OTHER PROCESSOR WAS UNABLE TO PROCESS THE DRIVE 
AFTER IT HAD REQUESTED THE DRIVE. THE OPERATOR MUST BE AWARE OF 
WHAT THE OTHER SYSTEM IS DOING AT ALL TIMES TO INTERPRET THE PORT 
RELATED ERROR MESSAGES PROPERLY. 

AFTER A DRIVE HAS COMPLETED AN OPERATION, THE PROGRAM WILL STORE 
THE REGISTERS AND ISSUE A 'RELEASE' TO THE DRIVE; IF THE OPERATION 
TERMINATED WITH AN ERROR. THE DRIVE WILL NOT BE RELEASED LWTIL 
ERROR PROCESSING HAS BEEN COMPLETED. 

SINGLE PORT DRIVES, DRIVES WHICH ARE IN NEUTRAL BUT NOT BEING 
EXERCISED BY THE OPPOSITE PORT ARE STILL TREATED AS DUAL PORT 
DRIVES IN THAT A RELEASE COMMAND IS ISSUED AT THE END OF NORMAL 
COMMAND PROCESSING OR AT THE END OF ERROR PROCESSING. A RELEASE 
COMMAND ISSUED UNDER THESE CONDITIONS HAS NO FUNCTIONAL EFFECT 
ON THE OPERATION OF THE DRIVE. 

8.3 SELECTION OF OPERATION VARIABLES 

A. SECTOR ADDRESS SELECTION IS RANDOM BETWEEN THE VALUES IN 
•MINSEC AND 'MAXSEC. TRACK ADDRESS SELECTION IS RANDOM 
BETWEEN THE VALUES IN 'MINTRK' AND 'MAXTRK*. CYLINDER ADDRESS 
SELECTION IS RANDOM BETWEEN 'MINCYL' AND 'MAXCYL*. IF A MINI^W^ 
ADDRESS IS GREATER THAN THE CORRESPONDING MAXIMLM ADDRESS. THE 
PROGRAM WILL SWAP 'MAX* AND 'MIN' ADDRESSES AND CONTINUE. 

8. THE WORD COUNT IS RANDOMLY SELECTED BETWEEN 6 AND THE VALUE 

•WRDCNT'. THIS IS NECESSARY AS THE PROGRAM REQUIRES 4 LOCATIONS 
IN THE DATA PORTION OF THE SECTOR TO BE ABLE TO MATCH THE DA'A 
TO A PATTERN FOR DATA COMPARISON PURPOSES AND NEEDS 2 MQRfc 
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1597 

1598 

1599 

1600 

loC- 

1602 

1605 

1604 

1605 

1606 

1607 

1608 

1609 

1610 

1611 

1612 

161? 

16U 

1615 

1616 

1617 

1618 

1619 

1620 

1621 

1622 

1623 

1624 

1625 

1626 

1627 

1«>28 

1629 

1650 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1638 

1639 

1640 

1641 

1642 

1643 

1644 

1645 

1646 

1647 

1648 
1649 
1650 
1651 
1652 
1653 



LOCATIONS IF A READ HEADER t DATA COWAND IS ISSUED. 

C. THE DATA WRITTEN IS RANDOMLY SELECTED AMONG THE 15. STANDARD 
PATTERNS. THE PARAMETER 'PATTERN' ENABLES THE RANOOW PATTERN 
SELECTION. IF THIS PARAMETER IS 0. 

D. THE CCWIANDS ARE SELECTED RANDOMLY. WRITE CHECK DATA COMMAND IS 
PERFORMED ONLY IF THE PREVIOUS COMMAND WAS THE APPROPRIATE WRJTf 
DATA COMMAND. 

8.4 DATA PATTERNS 

THE PROGRAM SELECTS ONE OF THE FOLLOWING DATA PATTERNS TO WRFE 
WHEN A WRITE COMMAND IS SELECTED. THE ENTIRE BUJ-FER IS FILLED WITH 
THE SELECTED PATTERN. WHEN DATA IS READ FROM THE DISK, THE PROGRAM 
COMPARES DATA ON A SECTOR BASIS. IF THE PARAMETER 'PATTERN' IS 0 THE 
PROGRAM WILL ATTEMPT TO MATCH THE FIRST 4 DATA WORDS OF EACH SECTOR, 
'0 ONE OF THE FOLLOWING PATTERNS. HOWEVER, IF THE PARAMETER 'PATTERN* 
IS NOT 0, THE PROGRAM WILL ASSUME THAT THE DESIRED DATA PATTERN JN 
LOCATION 'PATTERN' IS THE DATA TO LOOK FOR AND WILL NOT TRY TO MATCH 
ANY PATTERNS. THIS ALLOWS THE OPERATOR TO SCAN THE DISK FOR ANY 
SPECIFIC PATTERN. 

PAT 1 PAT 2 PAT 3 PAT 4 PAT 5 PAT 6 PAT 7 "PAT 8 



000001 
000003 
000007 
000017 
000037 
000077 
000177 
000377 
000777 
001777 
003777 
007777 
0^7777 
017777 
077777 
\77777 



\7777h 
1 7777U 
U7770 
177760 
177740 
177700 
1 77600 
1 77400 
177000 
176000 
1 74000 
170000 
160000 
140000 
100000 
000000 



000000 
000000 
000000 
177777 
\77777 
177777 
000000 
000000 
177777 
177777 
000000 
177777 
000000 
177777 
000000 
177777 



133331 
133331 
133331 
133331 
133331 
133331 
133331 
133331 
133331 
133331 
133331 
133331 
133331 
133331 
133331 
133331 



052525 
052525 
052525 
125252 
125252 
125252 
052525 
052525 
125252 
125252 
052525 
125252 
052525 
125252 
052525 
125252 



155555 
155555 
155555 
155555 
155555 
155555 
155555 
155555 
155555 
155555 
155555 
155555 
155555 
155555 
155555 
155555 



026455 
026455 
026455 
151322 
151322 
151322 
026455 
026455 
151322 
151322 
026455 
151322 
026455 
151322 
026455 
151322 



155555 
133333 
155555 
133333 
155555 
133333 
155555 
133333 
155555 
133333 
155555 
133333 
155555 
133333 
155555 
135333 



PAT 9 PAT 10 PAT 11 PAT 12 PAT 13 PAT 14 PAT 15 



000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 



177776 
177775 
177773 
177767 
177757 
177717 
177t77 
177^77 
177177 
176777 
175777 



1 72666 
155555 
1 72666 
155555 
172666 
155555 
1 72666 
155555 
1 72666 
155555 
1 72666 



077777 
117777 
157777 
167777 
171777 
175777 
176777 
177377 
177577 
177677 
■^77717 



153333 
066667 
153555 
066667 
153355 
066667 
155555 
066667 
155333 
066667 
155355 



000000 
1 77777 
1 77777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
' 77777 



177777 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
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i6S<. 

1655 

1656 

1657 

1658 

1659 

1660 

1661 

1662 

1663 

1664 

16t)5 

•666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

167A 

1675 

1676 

1677 

1678 

1679 

1680 

1681 

1682 

1683 

1684 

1685> 

1686 

1687 

1688 

1689 

1690 

1691 

1692 

1693 

1694 

1695 

1696 

1697 

1698 

1699 

1700 

1701 

1702 

1703 

1704 

1705 

1706 

1707 

1708 

1709 

1710 



9.1 



9.2 



9.3 



004000 
010000 
020000 
040000 
100000 



175777 
M)7777 
^^7777 
M7777 
^77777 



15555S 
1 72666 
155555 
1 72666 
155555 



\777')7 
1777t7 
\7777l 
'\7777') 
177776 



066667 
155T?? 
066667 
153353 
066667 



^77777 
^77777 
}77777 
y77777 
}77777 



000000 
000000 
000000 
000000 
000000 



• WORST CASE PATTERN 
RH/RM DRIVER 



THIS DOCLWENT IS THE USER'S GUIDE FOR THE WH/RM DRlVfR. 
rO INITIALIZE THE DRIVER: 



JSR 

RETURN 



PCRMINIT 



UPON RETURN VQU MUST EXAMINE THE 'DRVSTA" TABLE TO DETERMINE 
THE DRIVES THAT ARE ONLINE FOR TESTING. THE 'DRVSTA' TASLf IS 
EIGHT BrTES; ONE BYTE PER DRIVE. THE STATE Of EACH DRIVE WILL 
BE INDICATED AS FOLLOWS: 



DRVSTA 



>0 

=0 



<0 



DRIVE STATE 



ONLINE 

OFFLINE, DRIVE 
IS NOT AN RM05/3/2. 
NONEXISTENT DRIVE 
UNSAFE 



OR 



THE DRIVE TYPE IS DEFINED IN AN 8 BYTE LONG TABLE 
THE TABLE CONTAINS ONE BYTE FOR EACH DRIVE AND IS 
DRIVE NLWBER. ENTRIES ARE ENCODED AS FOLLOWS: 



TAGGED 'DRVTYP' 
INDEXED BY THE 



DRVTYP 



0 
4 
5 
7 
-1 



CONDITION 



NONEXISTENT DRIVE 

RM03 

RM02 

RM05 

NOT AN RW05/3/2 



THE 'RMINIT' ROUTINE WILL DO A READIN PRESET AND WILL SET Fmi6. 

AFTER THE DRIVER HAS BEEN INITIALIZED. IT IS CALlED USING THE 
FOLLOWING SEQUENCE. 



CALL: 



JSR R0,R/'.05 
PNTDPB 
RETURN! 
RETURN2 



.-riAKE THE CALL 
.•ADDRESS OF DPS* 
.RETURN IF QUEUE IS FULL 
.■RETURN IF REQUEST IS IN 
; QUEUE OR THERE IS AN 
.•ERROR CONDITION 
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17T2 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 

1723 

1724 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1752 

1753 

1754 

1735 

1736 

1737 

1738 

1739 

1740 

1741 

174*f 

1743 

1744 

1745 

1746 

1747 

1748 

1749 

1750 

1751 

1752 

1755 

1754 

1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 

1763 

1764 

1765 

1766 

1767 



•DPB (DATA PARAMETER BLOCK) 



PNTDP8.- .8YTt 
.QVTE 
.8VTE 
.8VTE 
.WORD 
.WORD 

.8VTE 

.8yTE 

.WORD 
.WORD 



.WORD 



0 
0 
0 
0 
0 
0 

0 

0 

0 
0 



(0) DRIVE NUMBER 

(1) OFFSET VALUE OR FMT16, ffT, AND hC I 

(2) COMMAND 

(5) PSEL AND Al 7 AND A16 

(4) WORD COUNT (MUST BE NEG.) 

(6) BUFFER ADDRESS OR 
REGISTER TABLE POINTER 

(10) SECTOR ADDRESS OR 
FIRST REG. INDEX 

(11) TRACK ADDRESS OR 
LAST REG. INDEX 

(T) CYLINDER ADDRESS 
(14) ERROR TABLE POINTER 
POINTS TO THE FIRST OF ^WENTv 
LOCATIONS OF WHERE THE DRIVER 
IS TO STORE THE RH/RM 
REGISTERS ON AN ERROR. IF LEFT 
ZERO REGISTERS ARE NOT SAVED. 
(16) STATUS/ERROR INDICATOR 
8IT15=1=ERR0R OCCURRED 
8IT07=1=DO»« 

8ITU-8JT09 AND BIT06-8IT03 
IWICATE TYPE OF ERROR 



9.4 



THE DRIVER PROVIDES A SOFTWARE TIMEOUT CAPABILITY. 

TO UTILIZE THIS CAPABILITY YOU MUST SUPPLY THE "RM TIMER' 

WITH THE ELAPSED TIME IN THE FOLLOWING MANNER: 



ROUTINE 



MOV #16.. -(SP) ;16. MILLISECONDS BETWEEN 

.CLOCK TICKS 
JSR PC.RMTMR ;CALL HE TIMER ROUTINE 

IT SHOULD BE NOTED THAT VOU MUST PROVlDl THE CODE TO DRIVE THE 
CLOCK AND THE ELAPSED TIME MUST BE IN MILLISECONDS. 



9.4.1 



EXAMPLE 
IS; 

2$: 



WRTDP8: 



- WRITE 
JSR 

WRTDPB 
BR 

TST 

SEO 
BMI 



.8YTE 
.BYTE 
.BYTE 
.BYTE 
.WORD 
.WORD 



1000. WORDS 

R0.RM05 

IS 

WRT0Pe*16 
2S 

ERR0R1 



5 
0 

161 
0 

-1000. 
WRTBUF 



;CALL THh DRIVER 

;DP6 ADDRESS 

;WA]T FOR QUEUE IF FULL 

;WAIT FOR COMMAND TO COMPLETE 

.•ERROR OCCURRED 



.•DRIVE #5 

WRITE COMMAND 

WORD COUNT 
BUFFER ADDRESS 
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1768 

1769 

1770 

1771 

1772 

1773 

1774 

1775 

1776 

1777 

1778 

1779 

1780 

1781 

1782 

1785 

178A 

1785 

1786 

1787 

1788 

1789 

1790 

1791 

1792 

1793 

1794 

1795 

1796 

1797 

1798 

1799 

1800 

1801 

1802 

1803 

180<. 

1805 

1806 

1807 

1808 

1809 

1810 

1811 

1812 

1813 

1814 

1815 

1816 

1817 

1818 

1819 

1820 

1821 

1822 

1823 

T824 
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.8YTE 
.WORD 
.WORD 
• WORD 



5 

400 

ERRT85 

0 



WRTDP8: 



ALTERNATE DP8 SETUP 

.WORD 5 

.WORD WRITE 

.WORD -1000. 

.WORD WRT8UF 

.BVTE 3,5 

.WORD 400.EftRT85.0 



9.5 



RH/RM REGISTERS 
MNEMONIC 



RMCS1 

RMWC 

RM8A 

RMDA 

RMCS2 

RMDS 

RMER1 

RMAS 

RMLA 

RMD8 

RMMR1 

fWDT 

RMSN 

RWOF 

RMDC 

RWR 

RMriR2 

RMER2 

RMEC1 

RHEC2 

RflBAE 

RMCS3 



SECTOR 
TRACK 
CYLINDER 
ERROR TA8LE 

3TATUS/ERR0R INDICATOR 



THIS SETUP ACHIEVED 
EVERYTHING THE 
ABOVE TABLE DID, BUT 
IN A CLEANER FORMAT 



INDEX 

*'o' 

2 

4 

6 
10 
12 
14 
16 
20 
22 
24 
26 
30 
32 
34 
36 
40 
42 
44 
46 
50* 
52- 



9,6 



• RH70 CONTROLLER REGISTERS 
COMMANDS PERFORMED BY THE DRIVER 

COMMAND CODE 



SEEK 

RECALIRATE 
DRIVE CLEAR 
RELEASE 
OFFSET 

RETURN TO CENTER 
READ IN PRESET 
PACK ACKNOWLEDGE 



105 
107 
111 
113 
115 
117 
121 
123 



COMWAND TYPE 



P 
P 
N 
N 
P 
P 
N 
N 
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■'825 

1826 

1827 

1828 

1829 

1830 

1831 

1832 

1833 

1834 

1835 

1836 

1837 

;838 

1839 

1E40 

18m1 

1842 

1843 

1844 

1845 

1846 

1847 

1848 

1849 

1850 

1851 

1852 

1853 

1854 

1855 

1856 

1857 

1858 

1859 

1860 

1861 

1862 

1863 

1864 

1865 

1866 

1867 

1868 

1869 

1870 

1871 

1872 

1873 

1874 

1875 

1876 

1877 

1878 

1879 

1880 

1881 



MACRO V04.00 



K 3 

4-APR-81 01:42:23 PAGE 3-32 



SEQ 0036 



SEARCH 131 

GET REGISTER(S) U1 

SET FORMAT U3 

SELECT DRIVE U5 

WRITE CHECK DATA 151 
WRITE CHK HEADER I DATA 153 

WRITE DATA 161 

WRITE HEADER I DATA 163 

READ DATA 171 

READ HEADER I DATA 173 



P 
S 
S 
S 
D 
D 
D 
D 
D 
D 



9.7 



N = HOUSEKEEPING 
P = POSITIONING 
D = DATA TRANSFER 

S = SPECIAL PROVIDED BY THE DRIVER 
DP8 STATUS/ERROR INDICATOR WORD 

THIS INDICATOR WILL INfoRM THE USER OF THE RESULTS OF THE REOUEbT. 
THIS IS ACCOMPLISHED BY SETTING VARIES BITS OF THE INDICATOR TO 
A ONE. 



BIT NO. 

15 

H(1) 
13(1) 

12(2) 
11(2) 
10(2)(4) 

9(3;(4) 

8(4) 

7 

6(2) 
5(2) 

4(2) 



MEANING IF ON A "1" 

ERROR OCCURRED 

DONE (8IT07=0); BITS 14-9 SPECIFIES TYPE 
DONE (8IT07=1); BITS 6-3 SPECIFIES TYPE 

USER MADE A REQUEST FOR A FUNCTION TO BE 
PERFORMED ON AN OFFLINE OR UNSAFE DRIVE 

USER MADE A REQUEST FOR A FlWCTION 

TO BE PERFORMED ON A DRIVE THAT HAS AN 

UNLOAD REQUEST IN QUEUE. 

PERSISTENT UNSAFE CONDITION EXIST. 

UNCORRECTABLE PARITY ERROR OCCURRED 

FATAL PARITY ERROR. A MASSBUS CLEAR WAS 
PERFORMED. ALL QUEUES WERE EMPTIED. AND 
ALL DRVACT'S SET TO THE IDLE STATE 

SOFTWARE TIMEOUT OCCURRED ON THIS DRIVE 

SOFTWARE TIMEOUT OCCURRED ON ANOTHER DRIVE 

DONE 

ERROR OCCURRED DURING AN I/O OPERATION 

ERROR OCCURRED DURING AN OPERATION 
OTHER THAN I' 

CORRECTABLE JNSAFE CONDITION OCCURRED 
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1882 

1883 

1884 

^88S 

1886 

1887 

1888 

1889 

1890 

1891 

1892 

1893 

1894 

1895 

1896 

1897 

1898 

1899 

1900 

1901 

1902 

1903 

1904 

1905 

1906 

1907 

1908 

1909 

1910 

1911 

1912 

1913 

1914 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

1924 

1925 

1926 

1927 

1928 

1929 

1930 

1931 

1932 

1933 

1934 

1935 

1936 

1937 

1938 



3(2; 

2 

1 



DRIVF tPROR CCURRED THAT CAUSED AN 
AUTOMATIC "RECAL18RATE" SEQUENCE 

PORT REQUEST TJMEOUT. THE DRIVER REQUESTED 
THE DRIVE BUT THE OPPOSITE PORT DID NOT 
RELEASE THE DRIVE WITHIN 15. SEC0W)S. 

NON-EXISTENT DRIVE REQUESTED. USER HADE 
A REQUEST FOR A NON-EXISTENT DRIVE. 



NOTES FOR ABOVE 



(1) 



(2) = 



(3) = 



(4) = 



REQUEST WASN'T PUT IN QUEUE. 
REGISTERS WERE NOT SAVED) 



(RH/RM 



REQUEST QUEUE HAS BEEN EMPTIED. THE DRIVER 
ISSUED A "DRIVE CLEAR" TO THE DRIVE. 
NOTE: ALL RH/RM REGISTERS ARE SAVED 
AS PER DP8+14 BEFORE THE "DRIVE CLEAR". 

REQUEST QUEUE HAS BEEN EMPTIED. THE 
DRIVER ISSUED A MASSSUS INIT. ALL 
RK'RM REGISTERS FOR THE DRIVE WERE 
SAVFD AS PER DP8+14 BEFORE THE INIT. 

A 'T?E CALIBRATE" SHOULD BE ISSUED 
BEFORE ANY OTHER COMMAND. 



9.8 ERROR CALLS MADE BY THE DRIVER. 

THERE ARE A FEU ERRORS THAT CAN OCCUR THAT CAN NOT BE INDICATED IN A DPS. 

WHEN THIS TYPE OF ERROR IS DETECTED BY THE DRIVER IT WILL MAKE 
AN ERROR CALL OF THE FORM "ERROR N". IJHERE "N" IS THE ERROR 
NUMBER AND THE ERROR WILL BE AN EMT INSTRUCT I QN. 



N 
1 

2 



TYPE 



RH/RM INTERRUPT 
OCCURRED (RHAS=0) 

UNEXPECTED ATTENTION 
OCCURRED 



MASSSUS PARITY 
ERROR (MCPE=1) 



DATA AVAILABLE 



•R4= RMCSrS ADDRESS 



R1= DRIVE NUMBtR 
R3= ATA BIT 
•R4= RMCSVS ADDRESS 
R5= (RMAS) 
RMERRS =RMOS 
RMERRS*2=RM£R1 
RMEPRS*4=RMER2 
RMEPRS*6-RMMR2 

RD.AOR= ADDRESS OF REG. KEAD 
RD.WRD= WORD READ 



1939 

19A0 

1941 

1942 

'945 

1944 

194S 

1946 

1947 

1948 

1949 

1930 

1951 

1952 

1953 

1954 
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MASS8JS PARITY 
ERROR (PAR=1) 



ADDRESS 
BIT SET 



PLUG CHANGE 
COPE' ERROR) 



SEO 003f) 



WRT,AD= ADDRESS OF REG. 
WRT.WD= WORD WRITTEN 
RD.WRD= WORD READ BACK 

Rl= DRIVE NUMBER 
R3= ATA BIT 
•R4= RMCSrS ADDRESS 
R5-- (RMAS) 
RWERRS =RMDS 
RMERRS*2=RMER1 
RMERRS*4=RMER2 
R«ERRS*6=RWR2 



WRITTEN 



• THIS IS THE ACTUAL UNI8US ADDRESS 076700) 
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SEQ 005/ 



1 

55 
56 



57 



58 

59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 



001100 
104000 
000004 



00001 1 
000012 
000015 
000200 
177776 

1 7777^, 
1 77772 
^ 77570 
177570 



000000 



.••LAST REVISION 04-APR-81 

TITLE CZRMU80 RM05/3/2 PERF fXER 

•COPYRIGHT (C) 1981 

•DIGITAL EQUIPMENT CORPORATION 

•COLORADO SPGS.. CO. 80919 

* 

•PROGR'VI BY MIKE LEAVITT 

•THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
•PACKAGE (MAINDEC-11-DZQAC-C5), 18-MAR-81 

S8TTL OPERATIONAL SWITCH SETTINGS 

USE 



SWITCH 

15 
13 
10 

8 

7 

6 

5 



HALT ON ERROR 

INHIBIT ERROR TYPEOUTS 

BELL ON ERROR 

INHIBIT END OF PASS MESSAGES 

DISPLAY ALL DATA COMPARE ERRORS 

DON'T CHANGE PARAMETERS (LOOP ON PRESENT VALUES) 

A. PARTIAL REGISTER DISPLAY If ERROR 

B. NO ECC CORRECTION RESULTS DISPLAYED IF ERROR 

A. DO NOT CHECK FOR MAXIMUM ERROR COUNTS 

B. DO NOT DROP DRIVE AT END OF TEST 

A. DISPLAY ERROR SECTOR IF 'DCK', 'DTE', OR 'WCF' ERROR 



1 
0 



B. 
C. 

A. 

B 



DISPLAY SECTOR IF 'DCK' ERR UNCORRECTABLE AFTER 
28TH RETRY 

IF DATA COMPARE ERROR & SW07 SET, DISPLAY 
REMAINDER OF BUFFER 

DO NOT TYPE UNIT STATUS AT PROGRAM START 
DO NOT TYPE PERFORMANCE REPORT AFTER SPECIFIED TIME 



INHIBIT DATA COMPARE AFTER READ COMMAND. W/O ERROR 
READ ONLY MODE 



S8TTL BASIC DEFINITIONS 

THE STACK POINTER *** 1100 ••• 



.••INITIAL ADDRESS OF 
STACK =1100 
tRROR = EMT 
SCOPE = lOT 



; .-BASIC DEFINITION OF 
; .-BASIC DEFINITION OF 



•MISCELLANEOUS 



HT 

LF 
CR 
CRLF 
PS 

PSW=PS 

STKLMT 

PIRQ 

DSWR 

DDISP 



11 
12 
15 
200 
177776 

177774 
^77771 
-{77570 
177570 



DEFINITIONS 

;;CODE 



ERROR 
SCOPE 



TAB 



CALL 
CALL 



FOR HORIZONTAL 
.jCODE FOR LINE FEED 
;;CODE FOR CARRIAGE RETL«N 
;;CODE FOR CARRIAGE RETURN-LINE 
; .-PROCESSOR STATUS WORD 



FEED 



•; STACK LIMIT REGISTER 

.•.•PROGRAM INTERRUPT REQUEST REGISTER 

;; HARDWARE SWITCH REGISTER 

;; HARDWARE DISPLAY REGISTER 



.••GENERAL PURPOSE REGISTER DEFINITIONS 

RO - %0 ;; GENERAL REGISTER 



BASIC DEHNITIONS 

000001 
000002 
000003 
000004 
000005 
000006 
000007 
000006 
000007 



000000 
000040 
000100 
OOOKO 
000200 
000240 
000300 
00C340 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 
001000 
000400 
C00200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



100000 
04000C 
020000 
010000 
004000 
002000 
001000 
000400 
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R1 = X^ ;; GENERAL REGISTER 

R2 = ;; GENERAL REGISTER 

R3 XI ; .-GENERAL REGISTER 

R4 - X4 -GENERAL REGISTER 

R5 - X5 ; .-GENERAL REGISTER 

R6 = X6 .-.-GENERAL REGISTER 

R7 - X7 ;. -GENERAL REGISTER 

SP - Xt ;; STACK POINTER 

PC = X7 ;; PROGRAM COUNTER 

.-•PRIORITY LEVEL DEFINITIONS 

PRO = 0 .-.-PRIORITY LEVEL 0 

PR! = 40 ;. -PRIORITY LEVEL 1 

PR2 = 100 .-.-PRIORITY LEVEL 2 

PR3 = 140 ; .-PRIORITY LEVEL 3 

PR4 = 200 .-.-PRIORITY LEVEL 4 

PR5 r 240 ; .-PRIORI TV LEVEL 5 

PR6 = 300 .-.-PRIORITY LEVEL 6 

PR7 - 340 .-.-PRIORITY LEVEL 7 

.-•••SWITCH REGISTER" SWITCH DEFINITIONS 

SW15 = 100000 

SW14 = 40000 

SW13 = 20000 

SW12 = 10000 

SWil = 4000 

SW10 = 2000 

SW09 = 1000 

SW08 = 400 

SW07 - 200 
SW06 • = 100 

SW05 = 40 

SW04 = 20 

SW03 = 10 

SW02 = 4 

SW01 = 2 

SWOO = 1 



3W9=SW09 
SW8=SW08 
SW7=SW07 
SW6=SW06 
SW5=SW05 
SU4=SW04 
SW3=SW03 
SW2=SW02 
SW1=SW01 
SW0=SW00 

.-•DATA BIT DEFINITIONS (BITOO TO BITIS) 

BIT15 = 100000 

BIT 14 = 40000 

BIT13 = 20000 

BIT12 = 10000 

BITII = 4000 

BIT10 ^ 2000 

8IT09 = 1000 

BIT08 - 400 



BASIC DEMNITIONS 

000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 
001000 
COOAOO 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



000004 
000010 
000014 
000014 
000014 
000020 
000024 
000030 
000034 
000060 
000064 
000240 

75 
76 
77 
78 
79 

80 000100 

81 000200 

82 000400 

83 001000 

84 002000 

85 020000 

86 040000 
87 

88 
89 
90 
91 
92 
93 
94 
95 
96 

97 000001 

98 000002 

99 000004 
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SEO 004' 



BJT07 = 200 

BIT06 = 100 

BJT05 = 40 

BIT04 = 20 

BJT03 = 10 

BJT02 = 4 

BJT01 = 2 

BJTOO = 1 

BIT9=8IT09 

BJT8=BJT08 

B]T7=8IT07 

BIT6=8iT06 

B]T5=8IT05 

BIT4=eiT04 

BIT3=8IT03 

BIT2^IT02 

BIT1=8IT01 

BIT0=8IT00 

.••BASIC "CPU" TRAP VECTOR 
ERfiVEC = 4 
RESVEC = 10 
TBITVEC = 14 
TRTVEC = 14 
BPTVEC = 14 
lOTVEC = 20 
PWRVEC = 24 
EflTVEC = 30 
TRAPVEC = 34 
TKVEC = 60 
TPVEC = 64 
PI ROVE C = 240 



ADDRESSES 

TIME OUT AND OTHER ERRORS 
RESERVED AND ILLEGAL INSTRUCTIONS 
■7" BIT 
TRACE TRAP 

BREAKPOINT TRAP (8PT) 
INPUT/OUTPUT TRAP HOT) •*SCOPE** 
POWER FAIL 

EMULATOR TRAP (EMT) ••ERROR** 

"TRAP" TRAP 

TTY KEYBOARD VECTOR 

TTY PRINTER VECTOR 

PROGRAM INTERRUPT REQUEST VECTOR 



.S8TTL RH CONTROLLER REGISTERS 
.•CONTROL AND STATUS REGISTER 1 (RMCS1) 



IE 
RDY 
A16 
A17 

PSEL 
MCPE 

TRE 

;SC 



= 100 
= 200 
= 400 
= 1000 
= 2000 
= 20000 
T 40000 
= 100000 



(BIT #6) 



INTERRUPT ENABLE 
READY (BIT *7) 
HIGH ORDER BUS ADDRESS 
HIGH ORDER BUS ADDRESS 
PORT SELECT (BIT #10) 
MASS8USS PARITY ERROR (BIT 
TRANSFER ERROR (BIT #14) 
SPECIAL CONDITION (BIT #15) 



BIT 
BIT 



(BIT 
(BIT 

#13j 



#8) 
#9) 



.-WORD COUNT REGISTER (RMUC) 

.(EACH BIT IS CALLED BY BIT NUMBER) 

;8US ADDRESS REGISTER (RMBA) 
;(EACH BIT IS CALLED BY BIT NUMBER) 

.•CONTROL AND STATUS REGISTER 2 (RMCS2) 



US1 
US2 
US4 



= 1 
= 2 
=■ 4 



.•UNIT SELECT (BIT #0) 
.'UNIT SELECT (BIT #1 ) 
.•UNIT SELECT (BIT #2) 



CZRMueO RM05/V2 PERf EXEP 
t>H CONTROLLER REGISTERS 



100 
101 
102 
103 
104 
105 
106 
107 
108 
109 

no 
111 

112 
1-3 
1U 
115 
116 
117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

KO 

K1 

U2 

K3 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 



0000'' 0 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 



000001 
000002 
000004 
000010 
000020 
000040 
004000 



000001 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 



000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 



MACC^O V04.00 



BAI 

DAT 

CLR 

IR 

OR 

MDPE 

MXF 

PGE 

NE"1 

NED 

UPE 

WCE 

DLT 



D 4 

A-APR-8'' 01:s2:^'3 PAGE 4-5 



10 

20 

40 

100 

200 

400 

1000 

2000 

4000 

10000 

20000 

40000 

100000 



SEQ 004. 



8US ADDRESS INCREMENT INHIBIT (81 T »l) 
MASS8US PARITr TEST (81 T *4) 
CLEAR (8IT *5; 
INPUT READr (81 T #6) 
OUTPUT READY (BIT 07) 
MASS BUS PARITY ERROR 
MISSED TRANSFER ERROR 
PROGRAM ERROR (BIT #10) 
NON EXISTENT MEMORY (BIT *11) 
NON EXISTENT DRIVE (BIT #12) 
UNI8US PARITY ERROR (BIT #13) 
WRITE CHECK ERROR (BIT #14) 
DATA LATE (BIT #15) 



(BIT 
(BIT 



#8) 
#9) 



.-DATA BUFFER REGISTER (RMDB) 
.-(EACH BIT IS CALLED BY BIT NUMBER) 

.S8TTL RM REGISTERS 

; CONTROL AND STATUS 1 REGISTER. (#00) 



GO 
FO 
F1 
F2 
F3 
F4 
DVA 



1 
2 
4 

10 
20 
40 

4000 



GO BIT (BIT #0) 
FUNCTION CODE BIT #1 
FUNCTION CODE BIT #2 
FUNCTION CODE BIT #3 
FUNCTION CODE BIT #4 
FUNCTION CODE BIT #5 
DEVICE AVAILABLE (BIT #11) 



.•DRIVE STATUS REGISTER (RMDS1) (#01) 



OFfON 

VV 

DRY 

DPR 

PGM 

LBT 

WRL 

MOL 

PIP 

ERR 

ATA 



= 1 
= 100 
= 200 
= 400 
= 1000 
= 2000 
= 4000 
= 10000 
= 20000 
= 40000 
= 100000 



OFFSET ON (BIT #0) 

VOLLME VALID (BIT #6) 

DRIVE READY (BIT #7) 

DRIVE PRESENT (BIT #8) 

PR06RAMA8LE (BIT #9) 

LAST BLOCK TRANSFERRED (BIT #10) 

WRITE LOCK (BIT #11) 

MEDJllI ON-LINE (BIT #12) 

POSITIONING OPERATION IN PROGRESS C8IT #13) 
COMPOSITE ERROR (BIT #14) 
ATTENTION ACTIVE (BIT #15) 



.-ERROR REGISTER #01 (RMERD (#02) 



ILF 

ILR 

RMR 

PAR 

FER 

WCF 

ECH 

HCE 

HCRC 

AOE 

lAE 

WLE 



1 
2 
4 

10 

20 

40 

100 

200 

400 

1000 

2000 

4000 



ILLEGAL FUNCTION (BIT #0) 

ILLEGAL REGISTER (BIT #1) 

REGISTER MODIFICATION REFUSED (BIT #2) 

PARITY ERROR (BIT #3) 

FORMAT ERROR (BIT #4) 

WRITE CLOCK FAIL (BIT #5) 

ECC HARD ERROR (BIT #6) 

HEADER COMPARE ERROR (BIT #7) 

HEADER CRC ERROR (BIT #8) 

ADDRESS OVERFLOW ERROR (BIT #9) 

INVALID ADDRESS ERROR (BIT #10) 

WRITE LOCK ERROR (BIT #11) 



RM REGISTERS 



IS? 

^58 

159 

160 

161 

162 

163 

16A 

165 

166 

16/ 

I08 

169 

^70 

171 

172 

T73 

'7U 

175 

176 

177 

178 

V9 

180 

18) 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 



010000 
020000 
040000 
100000 



000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 



000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
004000 
020000 
040000 
100000 



000100 
000200 
000400 
001000 
002000 



000001 
002000 
004000 
010000 



lACRO V04.00 



DTE 
OP J 
UNS 
DC< 
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10000 
20000 
40000 
100000 



SEO 004'. 



DRIVE TIMING ERROR ffJIT #12; 
OPERATION ISrOMPLETE (81 T #15) 
DRIVE UNSAFE (BIT #14) 
DATA CHECK ERROR (BIT 15) 



.•MAINTAINABILITY REGISTER (RMMR1)(#03) 



.•ATTENTION SUMMARY PSEUDO-REGI STER (RMAS) (#04) 



ATO 
ATI 
AT2 
AT3 
AT4 
AT5 
AT6 
AT7 



1 
2 
4 

10 

20 

40 

100 

200 



DEVICE 
DEVICE 
DEVICE 
DEVICE 
DEVICE 
DEVICE 
DEVICE 
DEVICE 



0 
1 
2 
3 
4 
5 
6 
7 



(SIT 
(BIT 
(BIT 
(BIT 
(BIT 
(BIT 
(BIT 
(BIT 



#0) 
#1) 
#2) 
#3; 
#4) 
#5) 
#6) 
#7) 



.•DESIRED SECTOR/TRACK ADDRESS REGISTER (RMDA) (#05) 



.•DRIVE TYPE REGISTER (RMDT) (#0o) 



D.)0 

DT01 

DT02 

DT03 

DT04 

DT05 

0T06 

DT07 

DT08 

DRO 

MOH 

TAP 

NSA 



= 1 
= 2 
= 4 
= 10 
= 20 
= 40 
= 100 
= 200 
= 400 
= 4000 
= 20000 
= 40000 
= 100000 



DRiVE TYPE NLfBER BIT 
DRIVE TYPE NLfBER BIT 



DRIVE TYPE NUMBER BI^ 
DRIVE TYPE NUMBER BIT 
DRIVE TYPE NlfftER BIT 
DRIVE TYPE NlfBER BIT 
DRIVE TYPE NUMBER BIT 
DRIVE TYPE NlfBER BIT 8 
DRIVE TYPE NIJBER BIT 9 
DRIVE REQUEST REQUIRED (BH #11) 
MOVING HEAD (BIT #13) 
TAPE DRIVE (BIT #14) 
NOT SECTOR ADDRESSED (BIT #15) 



.-LOOK-AHEAD REGISTER (RMLA) (#07) 



SCI 

SC2 

SC04 

SC10 

SC20 



= 100 

- 200 
= 400 

- 1000 
= 2000 



SECTOR COUNT FIELD 0 (BIT #6) 

SECTOR COUNT FIELD 1 (BIT #7) 

SECTOR COUNT FIELD 2 (BIT #8) 

SECTOR COUNT FIELD 3 (BIT #9) 

SECTOR COUNT FIELD 4 (BIT #^0; 



.•SERIAL NLfBER REGISTER (RMSN) (#10) 
.'(EACH IS CALLED BY BIT NUMBER) 



.•OFFSET REGISTER (PMOF) (#11) 



OFFDIR 
HCI 

Ec; 

FMT16 



= 1 

= 2000 
= 4000 
= 10000 



OFFSET DIRECTION 
HEADER COMPARE INHIBIT (BIT #10) 
ERROR CORRECTION CODE INHIBIT (BF 
FORMAT BIT (BIT #12) 



#' 1 



.•DESIRED CYLINDER ADDRESS (RMDC) (#12) 



000010 
000200 

002000 
OOAOOO 
010000 
0200CO 
OAOOOO 
100000 



"ZRWueO RMOS/I/? PER^ 
W REGISTERS 



?K 
215 
216 
217 
218 
2^9 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
250 
231 
232 
233 
234 
235 
236 
237 
258 
239 
240 
241 
242 
243 
244 
24b 
246 
247 

248 
249 
250 
25T 
252 
255 
254 
255 
256 
257 
258 
259 
260 



EXER 
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S£0 0044 



.-(EACH BIT IS TAILED BY BP NUMBER) 

.•CURRENT CrilNDER ADDRESS (RMCC) (#13) 
.•(REGISTER CURRENTLY NOT USED) 

;RM E'^i^Ofi REGISTER #02 (RMER2) (#15) 



DPE 
DVC 
LBC 
LSC 
IVC 
OPE 
SKI 
BSE 



r 10 

= 200 
= 2000 
= 4000 
= 10000 
= 20000 
= 40000 
= 100000 



DATA PAAITV ERROR (81 T #5) 
DEVICE CHECK (BIT #7) 
LOSS OF BIT CLOCK (BIT #10) 
LOSS OF SYSTEM CLOCK (BIT #'1) 
INVLAID COMMAND ERROR (BIT #12) 
OPERATOR PLUG ERROR (BIT #13) 
SEEK INCOMPLETE (BIT #14) 
BAD SECTOR ERROR (BIT #'5) 



;EtC POSITKJN REGISTER (RMECD (#16) 
.-(EACH BIT IS CALLED BY BIT NUMBER) 

.•ECC PATTERN REGISTER (RMEC2) (#17) 
.-(EACH BIT IS CALLED BY BIT NUMBER) 





.38TTL 


RM DRIVER COMMANDS 




000101 


RNOP 




101 


NO OPERATION 


000105 


SEEK 




105 


SEEK 


000107 


RECAL 




107 


•RECALIBRATE 


0001 1 1 


DRVCLR 




111 


■DRIVE CLEAR 


000113 


RELSE 




113 


; RELEASE 


000115 


OFFSET 




115 


•OFFSET 


000117 


RTC 




117 


;RETURN TO CENTER LINE 


000121 


READIN 




121 


;RFAD IN PRESET 


000125 


ACK 




123 


;PACK ACKNOWLEDGE 


0001 51 


SEARCH 




131 


: SEARCH 


0001 4'' 


GETREG 




141 


;GET REGISTERS 


000145 


SETFMT 




143 


:SET FORMAT (ft ECI OR HCD 


000145 


SELDRV 




145 


;S£LECT DRIVE 


0001 t>l 


UCKD 




151 


;URiTE CHECK DATA 


000153 


UCKHD 




153 


;URITE CHECK HEADER & DATA 


000161 


l«TDAT 




161 


;yRITE DATA 


000163 


WRTHD 




163 


;URITE HEADER ( DATA 


000171 


RDDAT 




171 


;READ DATA 


000173 


RDHD 




175 


,READ HEADER & DATA 


176700 


ABASE 




176700 




000254 


AVECT1 




254 





'RAP uAKHER 



oooooc 
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0001 7<. 
000176 



000200 

2 

5 00020A 
5 



0OC174. 
000000 
000000 



000157 005644 
000157 00565A 



SEO 004S 



.S8TTL TRAP CATCHER 
.=0 

•ALL UNUSED LOCATIONS FROM 4 - 776 LONTAJN A ".♦2,HAtT" 
•SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
•LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
.=174 
DISPREG: .WORD C 
SWREG: .WORD 0 



; .-SOFTWARE DISPLAY REGISTER 
;; SOFTWARE SWITCH REGISTER 



,S8TTL STARTING ADDRESS(ES) 
'JMP a#START1 
JMP SWfSTART 

,S8:TL ACT11 HOOKS 



;;.JUMP TO STARTING ADDRESS Of PROGRAM 
.•CHANGE THE RH/RM ADDRESS 



000046 
000052 



6 
7 
8 



000210 
000046 
031622 
000052 
040000 
000210 

oonoo 



;H00KS REQUIRED BY AC Til 
$SVPC=. 
.=46 
SEND AD 
. = 52 

.WORD 40000 
.=$SVPC 



,=1100 
,S8TTL 



.-SAVE PC 

;;1)SET L0C.46 TO ADDRESS OF SENCAD IN .t£OP 

;;2)SET L0C.52 '0 40000 
;; RESTORE PC 



APT PARAMETER BLOCK 



000024 
000044 



9 
'G 



001102 
001104 
001106 
001110 

oori2 



001100 

000024 
000200 
000044 

oonoo 
oonoo 



oonoo 
oonoo 000000 



001 206 
0U254 
014234 
0U234 
000032 
001114 



.•SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 



.$X=. 

.=24 
200 
.=44 
$APTHDR 
. = .$X 



SAVE CURRENT LOCATION 

SET POWER FAIL TO POINT TO START OF PROGRAM 
FCW APT START UP 

POINT TO APT INDIRECT ADDRESS PNTR. 
POINT TO APT HEADER BLOCK 
RESET LOCATION COUNTER 



SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDPIl DIAGNOSTIC 
INTERFACE SPEC. 



SAPTHD; 
$HI8TS: 
tMBADR: 
STSTM: 
SPASTM: .WORD 
$UNIIM: .WORD 
.WORD 



.WORD 
.WORD 
.WORD 



0 :;TWO HIGH BITS OF IS BIT MAILBOX ADDR. 

SMAIL ; .-ADDRESS OF APT MAILBOX (BITS 0-15) 
6500. ;;RUN TIM OF LONGEST TEST 

6300. ;;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
6300. ; .-ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT 
$ElEND-$MAIL/2 .-.-LENGTH MAILBOX-E TABLE (WORDS) 
.-CMTAGS TARING ADDRESS 
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'OmON TAGS 

: .SBTfL CCmiN TAGS 



•'•THiS TA8LE CONTAINS VARIOUS COMMON STORAGE LOCAMONS 
.••USED IN THE PROGRAM. 





GO 1 14 






.=TA8.XY 




sjQl 1 1^ 






SCMTA6 






; START Of COMMON TAGS 




000000 






.WORD 


0 




\J\J \ t lO 


U'JU 




STSTNM; .QyTE 


0 


; CONTAINS THE TEST NUMBER 


UU ' II' 


JvU 




SERFlG 


.BYTE 


0 


• rniUTAflUC CDDOD Cl A/* 

.LUNlMliMi CKHUK rLAO 


001 T20 


OvJOOOO 




»I CNi : 


.WORD 


0 , 


;LUNi«JN5 bUoTtoI J I ERA T J UN COUNT 


JU 1 1 ti* 


UUUUw 






. WORJ 


u 


• rnuTAriuc crnoc i nno Anr\Dccc 
; I, Un) 1 M J iMo oLUr't LUU* MUJHcib 


UU ! IC*» 


r\f\(\r\r\r\ 
UUUUUU 




SLPERR 


.WORD 


0 . 


• rriAiTAfiuc crnoc octiidm chd coonoc 
.LlXXIAimb MUr't KtlUKIM rUK tKKuH> 




UOUUUU 




SERTTl 


.WORD 








nnn 
VW 




$ITEMB 


.8YTE 


0 . 


• rniuTAiiuc ITEM rmuTom ovtc 


1 1 J 1 


uu t 




lERMAX 


.8YTE 


I , 


•rmuTATMC MAW COOnDC DCD TCCT 




l/UUUUU 




SERRPC 


.WORD 


0 


• • r HAiT A f luc or nt i ac t c ddhd r aic tdi ir r i rwLi 
, (. UrV 1 X J rL Ur LmM CHMUK JIXilKULIlUW 

• •rniuTAfMC Annoccc nc 'DAn* rata 

■ rmuTAiiuc 'tinnn' hata 
, I, UNI Aims uuuy UAiA 

• rnAiTAiluc 'QAn' l^ATA 








$GDADR 


.WORD 


u 


uU 1 1 JO 


nrvnnnn 
uuuuuu 




SBDADR 


.WORD 


yj 








SGDDAT 


.WORD 


r\ 








S8DDAT 


.WORD 


r\ 

V 1 


full 








.WORD 


U 


.ncjCnVcU IMUl lU DC (J)CU 








.WORD 


w 




UvJ 1 1 5U 






$AUTOe 


■ .8VTE 


u 


•.•AUTOMATIC MODE INDICATOR 


VV 1 1 J 1 


r»f>n 




SINTAG 


: .8YTE 


A 
U 




ev\i 1 ^5 
vU 1 1 JC 


UvUUUU 






.WORD 


A 

\J 




nni 1 "ii 


If f J f\j 




SWR: 


.WORD 


DbWH 




nni 1 *>>« 

Uv 1 1 jO 


1 77^ 7n 




DISPLAY: .WORD 


vol i** 










$TKS: 


177560 






001162 


177562 




STKB: 


177562 




;;TT\r KBO BUFFER 


001164 


177564 




SIPS: 


177564 




;;TTY PRINTER STATUS REG. ADDRESS 


001166 


1 77566 




$TP8: 


1 77566 




•■TTY PRINTER fiUFFFR RFG ADDRESS 


001170 


000 




SNULL: 


.8YTE 


0 


.•.•CONTAINS NULL CHARACTER FOR FILLS 


001171 


002 




SFILLS 


: .8YTE 


2 


.•.•CONTAINS # OF FILLER CHARACTERS REQUIRED 


001172 


012 




tFlLLC 


: .8YTE 


12 


.•.INSERT FILL CHARS. AFTER A "IINE FEED'" 
TERMINAL AVAILABLE" FLAG (8IT<07>-0 ^eS) 


001 1 73 


000 




$TPFLG 


: .BYTE 


0 


001174 


000000 




STf¥>0: 


.WORD 


0 


;;USER DEFINED 


001176 


207 


177 


377 WELL : 


.ASCIZ 


<207><377><377> 


.•;CODE FOR BELL 


001202 


077 




5QUES: 


.ASCII 


/?/ 


.•.•QUESTION MARK 


00120? 


015 




$CRLF : 


.ASCII 


<15> 


.•.•CARRIAGE RETURN 


C01204 


012 


000 


SLF: 


.ASCIZ 


<12> 


;;LINE FEED 








.S8TTL 


APT MAJL80X-ETA8LE 









.EVEN 








001206 




SMAIL: 






•APT MAILBOX 


001206 


000000 


SMSGTY: 


.WORD 


AMSGTY 


MESSAGE TYPE CODE 


001210 


000000 


SFATAL: 


.WORD 


AFATAL ; 


■FATAL ERROR NCWBER 


001212 


000000 


STESTN: 


.WORD 


ATESTN ;. 


TEST NlfBER 


001214 


000000 


SPASS : 


.WORD 


APASS 


PASS COUNT 


001276 


000000 


SDEVCT: 


.WORD 


ADEVCT ; 


DEVICE rouNT 


001220 


000000 


$UNI T : 


.WORD 


AUNIT 


•I/O UNIT NUMBER 


00^222 


000000 


JMSGAD: 


.WORD 


AMSGAD ; 


■MESSAGE ADDRESS 


001224 


000000 


SMSGLG: 


.WORD 


AMSGLG ; 


■MESSAGE LENGTH 


00^?2t 




$E TABLE 






APT ENVIRONMENT TABlE 



7^f^Q RMOS/^/^- PtRf EXE« MACRO .04.00 *i-APR-81 01:4?:?? 

«.P' MAIlBOX-ETABlE 



001226 


000 


$ENV: 


.QyTE 


AENV 


001227 


000 


SENVM: 


.BYTE 


AENVM 


001230 


000000 


SSUREG 


.WORD 


ASWREG 


001232 


000000 


SUSWR: 


.WORD 


AUSWR 




000000 


SCPUOP: .WORD 

' * 
• 

• * 
• 

• • 
■ 


ACPUOP 


001256 


000 


• ft 

• » 

• * 
• 

IMAMSI . 


.BYTE 


A.'WISI 


001237 


000 


$MTYP1 

■ ft 
• 

• ft 
• 


.BYTE 


AWTYPI 


001 240 


000000 


• ft 
• 

SMADRI . 

• • 


.WORD 


AMADR1 


001 ?<»2 


000 


« 

SMAMS2 


.BYTE 


AMAWS2 


001245 


000 


tMTVP2 


.BYTE 


AMTYP2 


001244 


000000 


$WADR2 


.WORD 


AMADR2 


001246 


000 


»r1AnS3 


.BVTt 


AWAWS3 


001247 


009 


$MTVP3 


•BYTE 


AMTYP3 


001250 


000000 


SnADR3 


.WORD 


AMADR3 


001252 


000 


SMAMSA 


.BYTE 


AMAMS4 


001253 


000 


SMTrP* 


.8YTE 


AWTYP4 


001254 


000000 


$nADR4 


.WORD 


AMADRA 


001256 


000254 


svEcn 


.WORD 


AVECTl 


001260 


000000 


svEcr2 


.WORD 


AVECT2 


Ou T etc 


1 (tl(\}\J 


$8ASE : 


.WORD 


ADA C:Z. 

ABASE 


001264 


oooooo 


$DEVP«: 


.WORD 


ADEVM 


001266 


000000 


SCDW1: 


.WORD 


ACDWI 


001270 


oooooo 


$CDU2: 


.WORD 


ACDW? 


00127? 




SETEND 










.MExn 
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SIO 004 

.'.-ENVIRONMENT BYTE 
.'.•ENVIRONMENT MODE BITS 
;;APT SWITCH REGISTER 
.'.'USER SWITCHES 
;;CPU TYPE. OPTIONS 
BITS 15-n=CPU TYPE 

11/04=01. 11/05=02. 11/20=03,11/40 C4, 11/45 05 

11/70s06.PDO=07,0=10 
BIT 10=REAL TIME CLOCK 
BIT 9=FL0ATIN6 POINT PROCESSOR 
BIT 8=MEM0RY MANAGEMENT 
;;HIGH ADDRESS.M.S. BYTE 
;;MEM. TYPE.8LX-»1 
MEM. TYPE BYTE — (HIGH BYTE) 

900 N3EC CORE =001 

300 NSEC 8IP0LAR=002 

500 NSEC MCS=003 
;.'HlfiH ADDRESS. 8LK#1 

MEM. LAST ADDR.=3 BYTES, THIS WORD AND LOW OF "^VPE" ^JBO/E 
;;HIGH ADDRESS.M.S. BYTE 
;.'MEM.TYPE.8L»CXr2 
;. 'MEM. LAST ADDRESS.8LK*2 
;;HIGH A0DRFSS.M.S.8YTE 
; .'MEM. TYPE, 8LK#3 
.'.'MEM.LAST ADDRESS,8L»or3 
;;HI6H ADDRESS,M.S.8VTE 
;;M£«.TYPE,8LMr4 
.■.•MEM.LAST A0DRESS,BLK#4 
:; INTERRUPT VECT0R#1,8US PRIORI TY*1 
;; INTERRUPT VECT0Rir28US PRIORI TY4r2 
:;SASE ADDRESS OF EQUIPMENT UNDER TEST 
;;0EVICE MAP 

;;CONTRaLER DESCRIPTION W0RD#1 
;; CONTROLLER DESCRIPTION W0RD*2 



jsei* defined tags 



MA:«0 V04.00 A-APR-81 



001272 V6700 

001274 000254 

001276 172540 

001 500 1 7254? 

001302 000104 

001304 177546 

001 306 000100 

001310 ^77777 

001312 \77777 

001314 000074 

001316 000000 

001320 000000 

001220 

001322 000000 

001 524 000000 

001526 000000 

001 530 000 000 

001 552 000005 

001 554 000000 

001 536 000000 

001340 000000 

001 342 000000 

001344 000000 

001546 000000 

001 550 000000 

001 552 OOOOOC 

001554 \77777 

001 556 000 



001557 000 

001 560 000000 

001362 000000 

001364 000000 

001366 000000 

C01 370 000000 

001572 000000 

001574 000 

001575 000 

001576 000000 
001400 000000 
001402 000000 
001404 000000 
001406 000000 
001410 000000 
00141? 000000 
001414 000000 
00U16 000000 
001420 000000 
001422 001055 
00U24 000036 



.S8TTL 


USER D 


IRMADR : 


.WORD 


SRMVE C : 


.WORD 


SLKCSR. 


.WORD 


?.LKCS8: 


.WORD 


ILPVEC. 


.WORD 


SLKS: 


.WORD 


• L. L. » U ^ ■ 


WORD 


PCLOCK. 


.WORD 


ClKFlG. 


.WORD 


HZ: 


.WORD 


STATIN. 


.WORD 


PACK : 


.WORD 


DRIVE 


=SUNJ T 


ATTN: 


.WORD 


UNIT: 


.WORD 


MASK: 


.WORD 


RETRY: 


.8YTE 


FAIRNS 


.WORD 


LSTAD: 


.WORD 


CHGADR: .WORD 


CFLAG: 


.WORD 


BADSEC 


■ .WORD 


HOUR: 


.WORD 


MINUTE 


: .WORD 


SECOND 


: .WORD 


ONE SEC 


: .WORD 


ZROIND 


: .ti^D 


FRSTER 


: .8YTE 




.8VTE 


SAVER1 


: .WORD 


SAVERS 


: .WORD 


ERCTR: 


.WORD 


LIMIT: 


.WORD 


CMCN^: 


.WORD 


CMCVL: 


.WORD 


CMSEC: 


.BYTE 


CMTRK : 


.8YTE 


EC81T: 


.WORD 


ECSEC: 


.WORD 


ECMSKO 


: .WORD 


ECMSK1 


: .WORD 


ECWRD: 


.WORD 



ECGD: .WORD 

EC8AD0: .WORD 

ECWRD1: .WORD 

ECGD1: .WORD 

EC8AD1: .WORD 

CYLJMT: .WORD 

SETLMT: .WORD 
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SrO 0048 



FINED TAGS 

176700 .-FIRST ADDRESS OF RH/RM REGISTERS 

254 ; VECTOR ADDRESS 

172540 ;ADDR OF KWll-P STATUS REGISTER 

172542 ;ADDR OF KW11-P COUNTER BUFFER 

104 ;ADDR OF KWll-P VECTOR 

17754b ;ADDR OF KWll-L STATUS REGISTER 

100 ;ADDR OF KW11-L VECTOR 

-1 ;'0' IF KW11-P IS ON SYSTEM 

-1 ;'0' IF A CLOCK IS AVAILABLE 

60. ;60. IF 60H2 SYSTEM, 50. IF 50HZ SYSTEM 

0 ;'TYPE STATISTICS' INDICATOR 

0 ;'W ' COMMAND INDICATOR 

.•DRIVE f STORAGE: ERRORS 1-5 I 10 

.•SAME AS USED IN APT 

0 .-ATTN REG STORAGE: ERRORS 1-5 %. 10 

0 .-DRIVE * STORAGE FOR PRINTOUT 

0 .-ERROR RETRY REGISTER MASK 

0.0 .-ERROR RETRY LIMIT IN THE LOWER BYTE 

.-RETRY COUNT IN THE UPPER BYTE 

5 .-MAXIMUM TIME IN QUEUE VALUE 

0 .-STORE LAST MEMORY ADDRESS HERE 

0 .-CHANGE RH/RM UNI8US ADDRESS FlAG 

0 ;IF = -1, 'CONTROL C* WAS FLAGGED 

0 ;8AD TRACK/SECTOR FLAG 

G ;HOUR COUNT STORED HERE 

0 .-MINUTE'S COUNT STORED HERE 

0 .-SECOND'S COUNT STORED HERE 

0 .-TIMER ROUTINE COUNTER (FOR ONE SECOND; 

-1 ;ZERQ INDICATOR FOR THE DATA COMPARE ROUTINE 

0 .-DATA COMPARE ERROR FLAG 

;IF > 0, PROCESSING 'DCKER* OR CAN'T MATCH PATTERN 

;IF < 0. MISCOMPARSION FOUND 

0 ;MISCOMPARSION OR CAN'T MATCH PATTERN FLAG 

; IF < 0. ERROR IN BUFFER 

0 .-SAVE R1 HERE 

0 .-SAVE R5 HERE 

0 .-NUMBER OF ERRORS 

0 .-DISPLAY LIMIT 

0 .-WORD COUNT 

0 .CYLINDER ADDRESS 

0 .-SECTOR ADDRESS 

0 .'TRACK ADDRESS 

0 ; ERROR BURST BIT OFFSET 

0 ;ERROR BURST WORD OFFSET (RELATIVE TQ SECTOR) 

0 .-CORRECTION MASK FOR FIRST ERROR WORD 

0 .-CORRECTION MASK FOR SECOND ERROR WORD 

0 .-LOCATION OF FIRST ERROR WORD 

0 .-GOOD DATA. FIRST WORD 

0 .-BAD DATA. FIRST WORD 

0 .-LOCATION OF SECOND ERROR WORD 

C .-GOOD DATA. SECOND WORD 

0 .-BAD DATA. SECOND WORD 

557. .-CYLINDER ADDRESS LIMIT 

30. .-SECTOR ADDRESS LIMIT 



CZRMUeO RM05/5/2 PERf EXER 

jser defined tags 

0OK26 000015 
00K50 000000 



0OK32 000000 



MACRO V04.00 



K 4 

4-APR-81 01:42:25 PAoE 7-1 



SEO 00^9 



00K3^ 002 74C 
00U36 005455 



0014^0 015200 

001442 000006 

001444 000031 

001446 000004 

001450 U20000 

001452 000000 000000 

001456 000001 



001460 000000 
001462 000000 

001464 000003 



00U66 000001 



TRKLMT: .WORD 13. 
DRVPAR: .WORD 0 



XXDP: .WORD 



TRACK ADDRESS LIMIT 

WHEN DRIVES ARE BEING ASSIGNED, 

0= CHANGE DRIVE PARAMETERS 

1=D0 NOT CHANGE DRIVE PARAMETERS 

THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH 

THE PROGRAM WAS LOADED. THF HIGH BYTE CONTAINS iHt 

•XXDP' DEVICE CODE FOR THE RM05/3/2. 



.S8TTL COMMON PARAMETERS 

THE FOLLOWING TWO LOCATIONS CONTAIN THE SOFT ERROR RATE WORDS USED TO 
DETERMINE END OF PASS WHEN THE PROGRAM IS DATA BIASED. 
IT WILL TAKE APPROXIMATELY 3.33 PASSES 10 REACH THE SOFT ERROR RATE OF 
1 X 10*10 BITS (6.25 X 10*8 WORDS) READ OR 10. PASSES TO REACH ^he 9CZ 
CONFIDENCE LEVEL OF 3 X 10*10 BITS (1.875 X 10*9 WORDS) READ. 
ENDC0N= LSB AND ENDC0N^2- MSB 



ENDCON: 



.WORD 
.WORD 



002740 
005455 



; (1.875 X 10*8 WORDS) OR (3 X 10*9 BITS) READ 



THfc FOLLOWING TWO LOCATIONS CONTAIN THE SEEK ERROR RATE WORDS USED TO 

DETERMINE END OF PASS WHEN THE PROGRAM IS SEEK BIASED. 

IT WILL TAKE 1 PASS TO REACH A SEEK ERROR RATE OF 1 X 10*6 SEEKS OR 3 

PASSES TO REACH A 90X CONFIDENCE LEVEL Of 3 X 10*6 SEEKS. 

ENDSEK= LSB AND ENDSEK*2= MSB 

ENDSEK: .WORD 015200 ;(J X 10*6 SEEKS) 
.WORD 000006 



MAXER: .WORD 25. 

CMPLMT: .WORD 4 

WRDCNT: .WORD 8102. 

INTRVL: .WORD 0.0 

PASSES: .WORD 1 



PAT TERN:. WORD 0 



RANDWC: .WORD 0 



RATIO: -WORD 3 



ENDING: .WORD 



MAXIMUM ERRORS ALLOWED PER DRIVE 

NUMBER OF COMPARE ERRORS TYPED OUT 

MAXIMUM WORD COUNT (32. SECTORS) 

FIRST WWD IS THE PERFORMANCE TYPEOUT INTERVAL 

(IN MINUTES). SECOND WORD IS THE INTERVAL COUNTER. 

NUMBER OF PASSES TO END OF TEST CTHIS PARAMETER IS 

NOT USED WHEN PROGRAM IS OPEFiATING IN AUTO RUN(CHAiN) 

M00E3. 

IF EO 0,RANDOMLY SELECT DATA PATTERN 
IF NOT EQ 0, SELECT ONE SET OF PATTERN 
POINTED BY THE 'T'ATTERN". 
IF EQ TO 0. GENERATE A RANDOM WORD COUNT 
FOR THE OPERATION. 

IF NOT EO TO 0. USE THE VALUE IN 'WRDCNT' FOR 
THE WORD COUNT 

READ/WRITE RATIO [RANGE 0 - 7D 



15/1 
7/1 
6/2 
5/3 
4/4 
3/S 
2/6 
1/7 



(READ/WRITE) 



IF NOT EQ 0. END OF PASS DETERMINED 

BY THE 'WORDS READ' COUNT. (2.5 X 10*8 WoRDS) 

IF EQ 0. END OF PASS DETERMINED 

BY THE SEEK COUNT. (4 X 10*5 SEEKS^ 



CZRMUeO MM05/5/2 PERf EXER 
COMMON PARAMETERS 

00K70 000001 



00K7? 000001 



001474 000000 



00K76 000000 



001500 
001502 



000010 
OOOOOA 



001504 000400 



001506 
001510 
001512 
001514 
001516 
001520 
001 522 
U01 524 
001526 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



001530 000000 



001532 
001534 
001536 
001540 
001542 
001 544 
001546 
001550 
001552 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



MACRO V04.0G 
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SEQ OC" 



URTCHK: .WORD 1 



MESS AGE:. WORD 1 



RANDOM: .WORD 0 



BAD8LK: .WORD 0 



IF NOT EQ 0. DO AN APPROPRIATE WRITE 
CHECK AFTER EACH WRITE COMMAND, 
IF EQ 0. SELECT WRITE CHECK COMMANDS 
RANDOMLY. 

IF EQ 1. DO NOT PRINT DATA ERROR MESSAGES 
ASSOCIATED WiTh OPERATOR SPECIFIED 
BAD SECTOR AREAS. 

IF NOT EQ 0, PRINT ERROR MESSAGES RELATING TO 
THESE AREAS 

IF EO TO 0. 'randomly SELECT DAM BLOCK 
ADDRESS. IF NOT ECU 0, SEQUENTIALLY 
SELECT DATA BLOCK ADDRESS 

IF EQ TO 1. THE BAD SECTOR ENTRY TABLE WILL ALWAYS 
BE INITIALIZED WHEN ASSIGNING A D-IIVE; IF EO TO 0, 
THE BAD SECTOR ENTRY TABLE WILL ONLY BE INITIALIZED 
IF THE PACK SERIAL NUMBER HAS CHANGED SINCE THE 
LAST TIME IT WAS READ. (NOTE: IF THE SERIAL NO. HAS 
CHANGED. THIS MOST LIKELY MEANS THAT THE PACK OR DRIVE 
HAD BEEN REPLACED WHILE THE DRIVE WAS DEASSIGNED) 



,S8TTL VALUES FOR FIRST OPERATION 



BEGPAT: 
BEGCOD: 



.WORD 
.WORD 



8. 
4 



BEGWC: .WORD 256. 



- 15.: 

- S3 



STARTING PATTERN CODE CRANGE 1 
STARTING COMMAND CODE CRANGE 0 

0 = WRITE CHECK DATA CUCKD') 

1 = WRITE CHECK HEADER Z DATA CWCHKHD' - NOT USED) 

2 = URITE DATA CWRTDAT') 

3 = WRITE HEADER I DATA CWRTHO* - NOT USED) 

4 = READ DATA CRDDAT') 

5 = READ HEADER t DATA CRDHD') 
STARTING URD CNT CRANGE 6 - WRDCNT3 



.S8TTL TABLES. CONSTANTS. AND VARIABLE LOCATIONS 

.'LIST Of DRIVES PERFORMING COMMANDS 

ORDERQ: .WORD 0 

.WORD 0 

.WORD 0 

.WORD 0 

.WORD 0 

.WORD 0 

.WORD 0 

.WORD 0 

.WORD 0 



ASNIST: .WORD 



;A BIT SET IS AN ASSIGNED DRWE 



.ADDRESSES OF DRIVES TO BE DEASSIGNED 

DUNIT: .WORD 0 

.WORD 0 

.WORD 0 

.WORD 0 

.WORD 0 

.WORD 0 

.WORD 0 

.WORD C 

.WORD 0 



:ZRMU80 RMOS/5/2 PERF EXER MACRO V04.00 

CABLES. CONSTANTS, AND VARIABLc LOCATIONS 
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SEO 00^1 



001554 
001556 
001 560 
001562 
001 56A 
001566 
001570 
001572 
001 574 



0015^6 
00(600 
001602 
001604 
001606 
001610 
C01612 
001614 
001616 



001620 
001622 
001624 
001626 
001650 
001632 
001634 
001636 
001640 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



.•ADDRESSES OF NEWLV ASSIGNED DRIVES 

NEyUNT: .WORD 0 

.WORD 0 

.yORD 0 

.WORD 0 

.WORD 0 

.WORD C 

.WORD 0 

.WORD 0 

.WORD 0 

.-LIST OF DRWES WAITING fOR BUFFERS/PARAMETERS 

AVAIL: .WORD 0 

.WORD 0 

.WORD 0 

.WORD 0 

.WORD 0 

.WORD 0 

-WORD 0 

.WORD 0 

.WORD 0 

.•LIST OF DRIVES WAITING FOR BUFFERS 

WAIT: .WORD 0 

.WORD 0 

.WORD 0 

.WORD 0 

.WORD 0 

.WORD 0 

.WORD 0 

.WORD 0 

.WORD 0 



;QUFFER ALLOCATION TABLE ENTRY COL<NT 



001642 


000000 




BUFT8L: .WORD 


0 


001644 


000000 


000000 


.WORD 


0.0 


001650 


000000 


000000 


.WORD 


0.0 


001654 


000000 


000000 


.WORD 


0.0 


001660 


000000 


000000 


.WORD 


0.0 


001664 


000000 


000000 


.WORD 


0,0 


001670 


000000 


000000 


.WORD 


0.0 


001674 


000000 


000000 


.WORD 


0.0 


001700 


000000 


000000 


.WORD 


0,0 


001704 


000000 


000000 


.WORD 


0,0 


001710 


000000 


000000 


.WORD 


0,0 


001714 


000000 


000000 


.WORD 


0,0 


001720 


000000 


000000 


.WORD 


0,0 


001724 


000000 


000000 


.WORD 


0.0 


001730 


000000 


000000 


.WORD 


0,0 


001734 


000000 


000000 


.WORD 


0.0 


001740 


000000 


000000 


.WORD 


0,0 


001744 


000000 


000000 


.WORD 


0.0 


001750 


000000 


000000 


.WORD 


0,0 


001754 


000000 


000000 


.WORD 


0,0 


001760 


000000 


000000 


.WORD 


0,0 



rZRMuBO RM05/3/2 PfRF EXER MACRO VO^.OO 

TABLES. CONSTANTS. AND VARIABLE LOCATIONS 
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SEQ 00'. 



001 764 
001 770 
001 774 
002000 
002004 
002010 
C02014 
002020 
002024 
002030 
002034 
002040 



002044 
002046 
002050 
002052 
002054 
G02056 
002060 
002062 



002064 
002065 
002066 
002067 
002070 
002071 



002072 
002073 
002074 
002075 
002076 
002077 

002100 
002101 
002102 
002103 
002104 
002105 
002106 
002107 
002110 
002111 



000000 
000000 
000000 

oooooc 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



046202 
050414 
052626 
055040 
057252 
061464 
063676 
066110 



151 
377 
161 
377 
171 
173 



004 
006 
010 
012 
014 
016 
020 
022 
030 
050 
052 
060 
062 
070 
072 
377 



000000 
OOOOOC 
000000 
000000 
000000 
000000 
000000 
000000 

ooocoo 

000000 
000000 
000000 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 

o.c 

0.0 
0/0 
0.0 
0.0 



.•DRIVE PARAMETER BLOCK (DPS) POINTER 
BLKADR: .WORD DRIVEO ;ADDRESS Of 
DRIVE 1 
DRIVE2 
DRIVE3 
DRIVE4 
DRIVES 
DRIVE6 
DRIVE 7 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



.-ADDRESS OF 
.•ADDRESS OF 
.•ADDRESS OF 
.ADDRESS OF 
.•ADDRESS OF 
: ADDRESS OF 
; ADDRESS OF 



TABLE 

THE PARAMETER 
THE PARAMETER 
THE PARAMETER 
THE PARAMETER 
THE PARAMETER 
THE PARAMETER 
THE PARAMETER 
THE PARAMETER 



BLOCK 
BLOCK 
BLOCK 
BLOCK 
BLOCK 
BLOCK 
BLOCK 
BLOCK 



FOP DRIVE 0 
FOR DRIVE 1 
FOR DRIVE 
FOR DRIVE 
FOR DRIVE 
FOR DRIVE 
FOR DRIVE 
FOR DRIVE 



.•DRIVER COMMAND CONTROL TABLE (USED IN RM DRIVER) 



C0MT8L: 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



UCKD 
-1 

URTDAT 
-1 

RDDAT 
RDHD 



; FUNCTION (COMMAND) CODE 

OPTBL: .BYTE 4 

.BYTE 6 

.BYTE 10 

.BYTE 12 

•BYTE 14 

.BYTE 16 

.BYTE 20 

.BYTE 22 

.BYTE 30 

.BYTE 50 

.BYTE 52 

.BYTE 60 

.BYTE 62 

.BYTE 70 

.BYTE 72 

.BYTE -1 

.EVEN 



WRITE CHECK DATA 
WRITE CHECK HEADER AND DATA (NOT USED) 
WRITE DATA 

WRITE HEADER AND DATA (NOT USED) 
READ DATA 

READ HEADER AND DATA 

CONTROL TABLE 
SEEK 
RECAL 

DRIVE CLEAR 

RELEASE 

OFFSET 

RETURN TO CENTERLINE 
READIN PRESET 
PACK ACKNOWLEDGE 
SEARCH 

WRITE CHECK DATA 

WRITE CHECK HEADER AND DATA 

WRITE DATA 

WRITE HEADER AND DATA 
READ DATA 

READ HEADER AND DATA 
TERMINATOR 



002112 


123 


105 


105 


002122 


122 


105 


103 


002132 


104 


122 


126 


002142 


122 


105 


114 


0021 52 


117 


106 


106 


002162 


122 


124 


103 



.•MESSAGE CONTROL TABLE 



MNT8L; 



•ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



/SEEK 
/RECAL 
/DRVCLR 
/RELSE 
/OFFSET 



.ASCIZ /RTC 



FOR 

/ 
/ 
/ 

/ 
/ 
/ 



'OPTBL' TABLE 



/RMueC RM05/3/2 PERF EXER MACRO VO^.OO 
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StO 0053 







10S 


101 




ASCI7 


/READ I W / 




T?0 


101 


103 




ASCI7 


/PACK / 






10S 


101 




ASCIZ 


/SEARCH / 




1?7 


103 


113 




ASCI 7 


/WCKD / 


002232 


127 


103 


113 




.ASCIZ 


/WCKHD / 


0022A? 


127 


122 


124 




.ASCIZ 


/WRTDAT / 




1 ?7 


1?? 


124 




ASCIZ 


^UPTHD / 






10^ 


10^ 




A5C 17 


/RDDAT / 




1 ?? 


104 


110 




ASCIZ 


/RDHD / 


002502 


116 


117 


'16 




.ASCIZ 


/NONE 


007^1? 

\J\JC J 1 C 


1 01 


10^> 


1 24 


ofm";go ■ 


ASCIZ 


/AFTER RETRv WITHOUT OFFSET/ 




101 


1 24 


040 


OF MSG 1 : 


.ASCJ2 


/AT NEGATIVE OFFSET/ 


002370 


101 


124 


040 


0FMSG2: 


!ascjz 


/AT POSITIVE OFFSET/ 










.EVEN 








000 






OFF COD • 


.QyTE 


0 'OFFSET CODE TABLE 


00?4 1 s 


001 








BYTE 


1 -NUMBER FOR NEGATIVE 


002416 


000 








.SVTE 


0 ;NUMBER FOR POSITIVE 








.EVEN 






002420 


002312 






0FMT8L : 


.wor^D 


OFMSGO ;1ST OFFSET MESSAGE 


002422 


002345 








.WORD 


0FMSG1 ;2ND OFFSET MESSAGE 


002424 


002370 








.WORD 


OF MSG? ;3RD OFFSET MESSAGE 



OUT) 
IN) 



.S8TTL DATA PATTERNS 







; STAND W DATA 


PATTERN POINTER TABLE 




002426 


002472 


STNDAT: .WORD 


DA7A0 


STANDARD DATA PATTERN 


0 


002430 


002532 


.WORD 


DATA1 


STANDARD DATA PATTERN 


1 


002432 


002572 


.WORD 


DArA2 


STANDARD DATA PATTERN 


2 


002434 


002632 


.WORD 


DAT A3 


STANDARD DATA PATTERN 


3 


002436 


002672 


.WORD 


DATA4 


STANDARD DATA PATTERN 


4 


002440 


002732 


.WORD 


DATA5 


•STANDARD DATA PATTERN 


5 


002442 


002772 


.WORD 


DATA6 


•STANDARD DATA PATTERN 


6 


002444 


003032 


.WORD 


DATA7 


■STANDARD DATA PATTERN 


7 


002446 


003072 


.WORD 


DATA8 


■STANDARD DATA PATTERN 


8 


002450 


003132 


.WORD 


DATA9 


•STANDARD DATA PATTERN 


9 


002452 


003172 


.WORD 


DATA10 


•STANDARD DATA PATTERN 


10 


002454 


003232 


.WORD 


DATA1 1 


; STANDARD DATA PATTERN 


11 


002456 


003272 


.WORD 


DATA12 


•STANDARD DATA PATTERN 


12 


C02460 


003332 


.WORD 


DATA13 


; STANDARD DATA PATTERN 


13 


002462 


003372 


.WORD 


DATA14 


; STANDARD DATA PATTERN 


14 


002464 


003432 


.WORD 


DATA15 


•STANDARD DATA PATTERN 


15 


002466 


002472 


.WORD 


ZEROS 


•ALL O'S PATTERN 




002470 


003374 


.WORD 


ONES 


■ALL TS PATTERN 





002472 
002472 
002474 
002476 
002500 
002502 
002504 
002506 
002510 
002512 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



ZEf»OS: 
DAT AO: 



.WORD 
■ WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



0 
0 
0 
0 
0 
0 
0 
0 
0 



;AlL O'S DATA PATTERN 



C7RMUB0 Rm5/l/2 PERF EXER 
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SEO 005A 











n 

w 








002516 


000000 




.WORD 


0 








002520 


000000 




.WORD 


0 














unon 




























uuuuw 






n 










UUUUUv 






0 














UDRD 


00000 1 


■ ^TAMDARD 


PAT TFRN 


1 




I'VvVV J 






00000^ 








UUc J jO 


n(V>ri/S7 






000007 








UUc3*»U 


n(V>ni 7 




UDRD 


00301 7 










UVA/V/J' 






0000^7 














UORO 


000077 










nnni '7 




UHRD 
. wwni/ 


0C01 77 
















000^77 










nnf>777 




UDRD 


000777 










nni 777 

WW \ f f 1 






001 777 








002556 


00Z777 




.WORD 


003777 








C02560 


007777 




.WORD 


007777 










m 7777 

\j I f f f f 






C17777 

VI'''' 










\jjf (It 




UDRD 


037777 

\jj fill 










C\77777 




UDRD 


077777 










1 77777 

\ 1 1 1 1 1 




WORD 

. WW"I/ 


\77777 








\J\JCji C 


1 7777 f\ 

\ f f f f \J 


DATA2: 


WORD 


1 77776 


- STANDARD 


PATTERN 


2 




1 7777L 

\ f f f f 




WORD 


\7777U 










1 7777C\ 




WORD 


1 77770 










1 777 f\0 

tiff \J\f 




WORD 


1 77760 








Uv/cuv/c 


1 777CCi 




WORD 


1 77740 








UvcOU*t 


1 777nn 

I f f f WW 




UORD 


1 77700 








vV/cOvV> 


1 f f VIWW 




WORD 


1 77600 








UV/cO 1 v 






UORD 


1 77A00 














WORD 


177000 

ill WW 










1 76000 




yORD 


1 76000 

1 f \j \j \j \f 








002616 


1 7A000 




'.UORO 


1 7A000 








002620 


1 70000 




.WORD 


1 70000 








v/wcOcc 


1 Owwww 




WORD 


1 60000 










1 HWWWW 




WORD 


140000 








vv/cOcO 


1 wwwvw 




WORD 


1 00000 










UwWwUw 




UDRD 


000000 








UV/cD 


wwwwww 






000000 

www 


■ STANDARD 


PAT TERN 


3 




fionnnn 

wwwwww 






000000 

V W WW 










000000 

wwwwwV 




WORD 


000000 

www 










1 77777 




UORD 


177777 










^77777 

\ f f f f f 




WORD 


177777 










1 77777 




WORD 


177777 










wwwwww 




WORD 


000000 

WWW 








vV/CO JU 


nooooo 

wwwwww 




WORD 


000000 

www 










1 77777 

I f f f f f 




WORD 


177777 








00265A 


"[77777 




.WORD 


177777 








002656 


000000 




.W09D 


000000 








002660 


177777 




.WORD 


177777 








002662 


000000 




.WORD 


000000 








00266A 


177777 




.WORD 


177777 








0Q2bbt 


000000 




.WORD 


000000 
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DATA PATTERNS 
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002670 


^77777 


.WORD 


\77777 


002672 


133331 


DATA4: .WORD 


4 9 7 7 7 4 

133331 


00267A 


13333' 


.WORD 


133331 


002676 


133331 


.WORD 


133331 


002700 


133331 


.WORD 


4 77774 

133331 


002702 


133331 


.WORD 


4 77774 

133331 


002 70A 


133331 


.WORD 


133331 


002706 


133331 


.WORD 


4 77774 

133331 


002710 


133331 


.WORD 


4 7^774 

13j331 


002712 


133331 


.WORD 


4 7 V 7 7 4 

133331 


0027K 


133331 


.WORD 


4 7 T ^ T 1 

133331 


002716 


133331 


.WORD 


133331 


002720 


133331 


.WORD 


133331 


002722 


77771 

133331 


.WORD 


133331 


00272A 


4 7 7 7 7 4 

133331 


.WORD 


4 7 7 7 7 4 

133331 


002726 


4 7 7 7 7 4 

133331 


.WORD 


133331 


002730 


4 77774 

133331 


.WORD 


133331 


002732 


/\C "if 

052525 


DATA5: .WORD 


052525 


C0273A 


052525 


.WORD 


AC "^C 1C 

052525 


002756 


052525 


.WORD 


AC "^C "SC 

052525 


0027A0 


125252 


.WORD 


4 ^ C ^C ^ 

125252 


002 7A 2 


125252 


.WORD 


125252 


0027A4 


125252 


.WORD 


125252 


0027<.6 


052525 


.WORD 


AC C "^C 

052525 


002750 


052525 


.WORD 


AC C "5 C 


002752 


125252 


.WORD 


125252 


002754 


125252 


.WORD 


4 "^C "^C 

125252 


002756 


052525 


.WORD 


052525 


002760 


125252 


-WORD 


125252 


/X/\ "i "7^ 

002762 


r\C —%C "^C 

052525 


.WORD 


AC ">C "^C 

052525 


002 76A 


125252 


.WORD 


4 "1 C "1 C 

125252 


002766 


052525 


.WORD 


AC "^C TC 

052525 


/\/\ ^ ^^/\ 

002770 


125252 


.WORD 


4 ^c ^ 

125252 


002772 


155555 


DATA6: .WORD 


4 CCC CC 

155555 


00277** 


155555 


.WORD 


1 cc c c c 

155555 


002776 


4 C C C C C 

155555 


.WORD 


4 c r c c c 

155555 


/\/x ^/\/\/% 

00^000 


4 C C C C C 

155555 


.WC^D 


4 C C C C C 

155555 


003002 


4 C C C C C 

155555 


.WORD 


4 C C C C r 

155555 


003004 


4 c c c c c 

155555 


.WORD 


4 cccc c 

155555 


003006 


155555 


.WORD 


f CCC cf 

755555 


00301 0 


1 c c c c c 

155555 


• WORD 


4 recce 

155555 


00301 2 


4 c c c c c 

155555 


.WORD 


4 C C C C C 

155555 


OC301'* 


155555 


.WORD 


4 c c c c c 

155555 


003016 


155555 


.WORD 


155555 


003020 


155555 


.WORD 


155555 


003022 


1 c ccc c 

1 55555 


.WORD 


1 C CC c c 

1 55555 


0050^4 


1 c c c c c 
1 55555 


.WORD 


1 cc c c c 

(55555 


003026 


1 c c c c c 

1 55555 


.WORD 


t c cc c c 

155555 


nnxnxn 


1 jjjjj 


. WORU 




003032 


026455 


DATA7: .WORD 


026455 


003034 


026455 


.WORD 


026455 


003036 


026455 


.WORD 


026455 


003040 


15132? 


.WORD 


151322 



STANDARD PATTERN 4 



.•STANDARD PATTERN 5 



; STANDARD PATTERN 6 



.•STANDARD PATTERN 7 



A'A PATTERNS 
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005042 


151322 




.WORD 


151522 


003044 


151322 




.WORD 


15132? 


003046 


026455 




.WORD 


026455 


005050 


026455 




.WORD 


026455 


003052 


151522 




.WORD 


151522 


003054 


151322 




.WORD 


151322 












005060 


151322 




.WORD 


151522 


003062 


026455 




.WORD 


026455 


003064 


151522 




.WORD 


15'322 


003066 


026455 




.WORD 


026455 


003070 


15^522 




.WORD 


151322 


003072 


155555 


DATA8: 


.WORD 


155555 


003074 


155555 




.WORD 


133555 


003076 


155555 




.WORD 


155555 


003100 


155555 




.WORD 


135555 


003102 


155555 




.WORD 


155555 


005104 


155555 




• WORD 


153555 


C05106 


155555 




.WORD 


155555 


003110 


155555 




.WORD 


153355 


005112 


155555 




.WORD 


155555 


005114 


153355 




.WORD 


135535 


UU J 1 1 o 


1 J J J J J 






155555 

1 J J J J J 


003120 


155555 




.WORD 


133335 


003^22 


155555 




.WORD 


155555 


005124 


135555 




.WORD 


153535 


005126 


155555 




.WORD 


155555 


005130 


155555 




.WORD 


155555 


0031 32 


000001 


DArA9: 


.WORD 


000001 


003154 


000002 




.WORD 


000002 


0031 56 


000004 




.WORD 


000004 


005140 


000010 




.WORD 


000010 


003142 


000020 




.WORD 


000020 


003144 


000040 




.WORD 


000040 


003146 


000100 




.WORD 


000100 


003150 


000200 




.WORD 


000200 


005152 


000400 




.WORD 


000400 


005154 


001000 




.WORD 


001000 




\J\JCv\J\J 




WORD 


002000 


003160 


004000 




.WORD 


004000 


005162 


010000 




.WORD 


010000 


005164 


020000 




.WORD 


020000 


005166 


040000 




.WORD 


040000 


005170 


100000 




.WORD 


100000 


0051 72 


1 77776 


DATA10: 


.WORD 


177776 


005174 


^7777^ 




.WORD 


177775 


005176 


\7777l 




.WORD 


M7771 


003200 


1 777t7 




.WORD 


177767 


005202 


^777^7 




.WORD 


1 77fb7 


003204 


-{77717 




.WORD 


\77717 


003206 


1 77677 




.WORD 


1 77677 


005210 


■\77'i77 




.WORD 


\77'>77 


005212 


}77177 




.WORD 


U7^77 


005214 


1 76777 




.WORD 


^76777 



I STANDARD PATTERN 8 (WORST CASE) 



.•STANDARD PATTERN 9 



STANDARD PATTERN 10 
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003216 


1 7^777 




.WORD 


003220 


171777 




.WORD 


003222 


167777 




.WORD 


00322A 


157777 




.WORD 


003226 


M7777 




.WORD 


003230 


077777 




.WORD 


003252 


1 72666 


OATAI "I : 


.WORD 


00323A 


155555 




.WORD 


003236 


1 7^666 




.WORD 


0032AO 


155555 




.WORD 


003242 


1 72666 




.WORD 


003244 


155555 




.WORD 


003246 


172666 




.WORD 


003250 


155555 




.WORD 


003252 


1 72666 




.WORD 


003254 


155555 




.WORD 


003256 


1 72666 




.WORD 


003260 


155555 




.WORD 


CO 3262 


1 72666 




.WORD 


003264 


155555 




• WORD 


003266 


172666 




• WORD 


003270 


155555 




• WORD 


003272 


077777 


DATA12: 


.WORD 


003274 


17777 




.WORD 


003276 


157777 




.WORD 


003300 


167777 




.WORD 


003302 


1 75777 




.WORD 


003304 


175777 




.WORD 


003306 


1 76777 




.WORD 


003310 


177577 




.WORD 


003312 


177577 




.WORD 


003314 


177677 




.WORD 


003316 


177717 




.WORD 


003320 


177757 




.WORD 


003322 


1 77767 




.WORD 


003324 


177773 




.WORD 


003326 


1 777^ 5 




.WORD 


003330 


177776 




.WORD 


003332 


153333 


DAMI 5: 


.WORD 


003334 


066667 




.WORD 


003336 


155533 




.WORD 


003340 


066667 




.WORD 


003342 


153555 




.WORD 


003344 


066667 




.WORD 


003546 


155555 




.WORD 


003350 


066667 




• WORD 


003352 


155555 




.WORD 


003354 


066667 




.WORD 


0053^6 


0 3335 




.WORD 


005360 


066667 




.WORD 


003362 


155555 




.WORD 


005364 


066667 




.WORD 


003366 


153333 




.WORD 


003370 


06666' 




.WORD 
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17577^ 
175777 
167777 
157777 
157777 
07777? 

172666 .-SIANDARD PATTERN 11 

155555 

172666 

155555 

172666 

155555 

1 72666 

155555 

1 72666 

155555 

1 72666 

155555 

1 72666 

155555 

172666 

155555 

077777 ; STANDARD PATTERN 12 

157777 

157777 

167777 

173777 

175777 

176777 

177377 

177577 

177677 

177737 

177757 

177767 

177773 

177775 

177776 

153333 ; STANDARD PATTERN 13 

066667 

153355 

066667 

155533 

066667 

153355 

066667 

155335 

066667 

153553 

066667 

155533 

066667 

15333^ 

066667 
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%A'A PATTERNS 



003372 
0O337A 
003376 
003A0O 
00340? 
003AOA 
003406 
003410 
00341? 
003414 
003416 
0034?0 
0034?? 
0034?4 
0034?e 
003430 

00343? 
C03434 
003436 
003440 
00344? 
003444 
003446 
003450 
003452 
003454 
003456 
003460 
003462 
003464 
003466 
0034^0 



000000 
-[77777 
}77777 
^77777 
}77777 
}77777 
•[77777 
1 77777 
-[77777 
}77777 
-[77777 
1 77777 
y77777 
\77777 
y7y777 
y77777 

y77777 
000000 
000000 
000000 
000000 

oocooo 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



DATA14: 
ONES: 



DATA15: 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
• WORD 
.WORD 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



OOCOOO 
-[77777 
U7777 
-[77777 
-[77777 
\77777 
y77777 
y7''777 
y77777 
y77777 
\77777 
\77777 
-[77777 
1 77777 
-[77777 
^77777 

1 77777 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



.•STANDARD PATTERN U 
;ALL rs DATA PATTERN 
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ERROR PC'IN'EB ^aBlE 



MACRO V04.00 



H 5 

4-APR-81 01:42.v3 PAGE 8 



,S8TTi ERROR POINTER TABLE 

•THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

•THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

•LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

•N0TE1: IF SITEMB IS 0 THE ONLY PERTINENT DATm IS (JERRPC). 

•NOTE?: EACH ITEM IN THE TABLE CONTAINS A POINTERS EXPLAINED AS FOLLOWS 



EM 
DH 
DT 
DF 



POINTS TO THE ERROR MESSAGE 
POINTS TO THE DATA HEADER 
POINTS TO THE DATA 
POINTS TO THE DATA FORMAT 



c 
3 
u 
5 
6 
7 
8 
9 
70 

n 

'2 
13 
U 
15 
16 
V 
18 
19 
20 
^1 
22 
23 
24 
25 
26 
27 
28 
29 
30 
51 
32 
33 
5A 
Y> 
56 
37 
38 
59 
AO 
A1 
42 



0^3A72 



003472 
003474 
003476 
003500 



003502 
003504 
003506 
003510 



003512 
003514 
003516 
003520 



003522 
003524 
003526 
003530 



003552 
003554 
005556 
003540 



003542 
003544 
003546 
003550 



070412 
075063 
075550 
000000 



070464 
073070 
073534 
000000 



070522 
073144 
073552 
000000 



070560 
073172 
073562 
000000 



070615 
075070 
075554 
000000 



070651 
073231 
073574 
000000 



lERRTB: 
.-ERROR 



1 



EMI 
DHI 
DTI 
0 



.•ERROR 2 



EM2 
t <2 
DT2 
0 



.-ERROR 5 



EM3 
Dh3 
DT3 

0 



.-ERROR 4 



EM4 
DH4 
DT4 

0 



.-ERROR 5 



EMS 
DH2 
DT2 
0 



.-ERROR 6 



EM6 
DH6 
DT6 

0 



;RH CONTROLLER INTERRUPT OCCURRED (RMAS 0) 



;UNEXPECTED ATTENTION OCCURRED 



.-MASSBUS PARITY ERROR (MCPE T) 



;MASS8US PARITY ERROR (PAR=1, 



; ADDRESS PLUG BIT CHANGED 



;RH CONTROLLER DIDN'T RESPOND TO ADDRESSING 



FRROR POINTER TABLE 
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3 00355? 

4 00355A 

5 003556 

6 005560 
005564 

0036P4 

7 005624 

8 0056?6 

9 005630 
10 

-1 005652 

^2 
13 

!<, 

15 005634 

16 005642 
17 

18 00364*. 

19 

003652 
005654 

20 

21 005662 

22 005666 

23 005670 
24 

25 

005672 
003676 
003700 
003704 
003706 

003712 
005720 

003726 
003734 
003742 
003750 
003756 
003764 



011600 
005740 
022626 

104401 005566 
000417 



010046 
1C4402 
000240 

000404 



012737 }77777 
000407 

012737 000400 
000240 

012737 000001 

005227 000000 

001575 

000005 



012706 
005026 
022706 
001374 
012706 

012737 
012757 
012737 
012737 
012737 
012737 
012737 
012737 



001114 

001154 

001100 

054540 
000540 
057730 
000340 
037436 
000340 
176543 
123456 



SEO OOc, 



001336 
00^336 
001212 



000030 
000052 
000034 
000036 
000024 
000026 
037022 
037024 



003772 


013746 


000004 




003776 


012737 


004052 


000004 


004004 


012737 


177570 


001154 


004012 


012737 


177570 


001156 


004020 


022777 


-^77777 


175126 


004026 


001012 






004050 


000403 






•30403? 


012716 


004040 




004056 


000002 







.•THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS 
BADTMO 



;;65$: 
64S: 



MOV 
TST 
CMP 
TYPE 
BR 

.ASCIZ 

MOV 

TYPOC 

NOP 

BR 



(SP),RO 
-(«0) 

(SP)*,(SP)* 
.65$ 
64S 



SAVE PC WHERE THE TIME OuT OCCURED 
ADJUST PC -2 
RESTORE STACK POINTER 
.•TYPE ASCJZ STRING 
.-GET OVER THE ASCIZ 



<CRIF>/UN£XPECTED BUS TIMEOUT. PC"/ 
RO.-(SP) .-SETUP FOR TYPING OUT PC 



START! 



.S8TTL START OF PROGRAM 



START; 
START1: MOV 



MOV 
BR 



*-1 .CHGADR 
START2 

#400.CHGADR 



;PUT 'HALTCO)' INSTRUCTION HERE If YOU WISH 
;T0 STOP ON UNEXPECTED TIMEOUT. 
.-BRANCH TO STARTl 



;SET RH/RM ADDRESS CHANGE FLAG 
.•START THE PROGRAM 

.•CLEAR THE RH/RM ADDRESS CHANGE FLAG 



TST1 : NOP 
MOV 

SrART2; INC 
BNE 
RESET 



•I.STESTN .-;SET TEST NUMBER IN APT MAIL BOX 

*0 ;TTY LOOP, WAIT FOR INCREMENT 

.-4 ;0F WORD 

.•CLEAR THE WORLD 



•SBTTL 
;.- CLEAR 



INIT 
THE 
MOV 
CLR 
CMP 
BNE 
MOV 
.-.-INITIALIZE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
;;SIZE FOR A 
.-.-EQUAL TO A 
MOV 
MOV 
MOV 
MOV 
CMP 
BNE 



lALIZF THE COMMON TAGS 
COMMON TAGS ($CMTAG) AREA 
*$CMTAG.R6 
(R6) + 
ffSWR.R6 
.-6 

#STAC»(,SP 
A FEW VECTORS 

#$ERROR.a#EMTVEC ;;EMT VECTOR FOR ERROR ROUTINE 
#340.8#EMTVEC+2 ; .-LEVEL 7 

f$TRAP.a#TRAPVEC ;;TRAP VECTOR FOR TRAP CALLS 
#340. a#TRAPVEC+2; LEVEL 7 



FIRST LOCATION TO BE CLEARED 
CLEAR MEMORY LOCATION 
DONE? 

LOOP BACK IF NO 

SETUP THE STACK POINTER 



.-POWER FAILURE VECTOR 
LEVEL 7 

;PRIME THE RANDOM NUMBER GENERATOR 
;BOTH HIGH W4D LOW WORDS 
HARDWARE SWITCH REGISTER. IF NOT FOUND OR !T IS 
-1". SETUP FOR A SOFTWARE SWITCH REGISTER. 



#$PWRDN.S#PWRVEC 
#540.»l'PWRVEC+2 
#1 76545, SHINUM 
#123456.$L0NUM 



04$: 



BR 

MOV 

RTI 



a#ERRVEC.-(SP) 
tf64S.S#ERRVEC 
#DSWR.SWR 
tfDDiSP. DISPLAY 

#-i.aswR 

66$ 
65$ 

#65$. (SP) 



SAVE ERROR VECTOR 
SET UP ERROR VECTOR 
SETUP FOR A HARDWARE SWICH REGISTER 
AND A HARDWARE DISPLAY REGISTER 
TRY TO REFERENCE HARDWARE SWR 
BRANCH IF NO TIMEOUT TRAP OCCURRED 
AND THE HARDWARE SWR IS NOT = 
BRANCH IF NO TIMEOUT 
SET UP FOR TRAP RETURN 
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SEO OOf 





A1 "5777 


AAA1 7X. 


AA1 1 C/ 


o J* : 


nUV 




Ai '^777 


r.AAl 7/ 


AA1 1 

UU 1 1 JO 




nUV 


AAy AC/ 


A 1 ox 7 7 


AAAAA/ 

uuuuu*» 




66$: 


nUV 


OOsOoO 


AAC A77 

00505^ 


AA1 01 A 








AAy A^/ 


1 70777 


AAAOAA 
UUUi'UU 


UU 1 cc f 




Q ! TO 




\J\J 1 HV/ J 










00A07A 


012737 


001230 


001154 


67$: 


MOV 


004102 








"TIMEOUT 


26 








.•SETUP 


27 00A102 


012737 


003552 


000004 




MOV 


28 00A110 


012737 


000300 


000006 




MOV 



#SWREG,SWP -POINT TO SOFTWARE SWR 

#DISPREG. DISPLAY 

(SP)*.a#ERRVEC .-.-RESTORE ERROR VECTOR 



$PASS 

#APTSIZE,$ENVM 
67$ 

#$SWREG,SWR 



.-.-CLEAR PASS COUNT 
.-.•TEST USER SIZE UNDER APT 
;; YES. USE NON-APT SWITCH 
.-.-NO.USE APT SWITCH REGISTER 



' T'^AP VECTOR FOR UNEXPECTED BUS TIMEOUTS 
*8ADTM0.ERRVEC .-SETUP FOR UNEXPECTED TIMEOUT 
*PR6.ERRVEC*2 .-LEVEL 6 



29 
30 

004116 
004122 
004124 
004130 

004206 

004206 
004212 
004214 
004222 
004224 
004232 
004234 
004236 
004240 
004246 

31 
32 
33 
34 

35 004246 

36 004252 

37 004260 

38 004262 

39 004270 

40 004276 

41 004300 

42 004304 

43 004310 

44 004312 
004316 

00^344 
4*) 004344 

46 004346 

47 004352 

48 004354 

49 004355 

50 004356 

51 004362 
52 



005227 
001031 
104401 
000426 



005737 
001012 
123727 
001406 
023727 
001005 
104406 
000403 
112737 



M7777 
004132 

000042 
001226 
001154 



000001 
0001 76 



000001 001 1 50 



005037 


001432 




^22717 


000016 


000041 


001121 






013737 


000040 


001432 


122737 


000007 


001432 


103002 






105037 


001432 




005737 


000042 




001425 






104401 


004320 




000412 






005046 






113716 


001432 




104403 






001 






000 






104401 


001203 




000460 







.S6TTL TYPE PROGRAM NAME 
.-.-TYPE THE NAME OF THE PROGRAM 
INC #-1 
BNE 68$ 
TYPE .69$ 
BR 68$ 
.ASCI7 <CRLF>aCZRMUeO 



;;69$: 
68$: 
.S8TTL 



GET VALUE FOR SOFTWARE 



70$: 
71$: 



TST 
BNE 
CMP8 
BEQ 
CMP 
BNE 
GTSWR 
BR 

M0V8 



a«42 
70$ 

$ENV,*1 
70$ 

SWR.XfSWREG 
71$ 

71$ 

#1.$AUT08 



IF FIRST PASS 
.-FIRST TIME? 
.-BRANCH IF NO 
.-TYPE ASCIZ STRING 
.-GET OVER THE ASCIZ 

RM05/3/2 PERFORMANCE EXERCISERa<CRLF> 

SWITCH REGISTER 

.-ARE WE RUNNING LWOER XXDP/ACT? 
.•BRANCH IF YES 
.-ARE WE RUNNING UNDER APT? 
.-BRANCH If YES 

.•SOFTWARE SWITCH REG SELECTED? 
.-BRANCH IF NO 
;GET SOFT-SWR SETTINGS 

.-SET AUTO-MODE INDICATOR 



.-THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE: 
.•PAPER TAPE (HVAJAL), ACT11, XXDP CHAIN OR DUMP 



1$: 



7H 



73$: 



CLR 


XXDP 


CMP8 


#16.a4r41 


BNE 


3$ 


MOV 


a«40,XXDP 


CMP8 


#7, XXDP 


BHIS 


1$ 


CLR8 


XXDP 


TST 




BEG 


2% 


TYPE 


,73$ 


BR 


72$ 


.ASCIZ 


<CRLF>/NOT 


CLR 


-(SP) 


M0V8 


XXDP.(SP) 


TYPOS 




.BYTE 


1 


.BYTE 


0 


TYPE 


.$CRL'^ 


BR 


h 



; CLEAR 'XXDP' LOAD DEVICE STORAGE 
.•LOADED FROM AN RM05/3'2 ? 
;8R IF NOT 

;GET DEVICE INDICATOR AND NlMBER 

;IS IT A VALID NUMBER ? 

•YES 

;N0, DEFAULT TO DRIVE 0 
.-CHAIN MODE OR AC Til AUTO ACCEPT 
;8R IF NEITHER 
;;TYPE ASCIZ STRING 
;;GFT OVER THE ASCIZ 
TESTING DRIVE / 

.-CLEAR WORD ON STACK 
.-GET DRIVE ADDRESS 
.-TYPE THE ADDRESS 
.■ONLY 1 CHARACTER 
.-SUPRESS LEADING ZEROS 
; CR-LF 

.-GET NUMBER OF DRIVES 
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SEQ OOtif 



53 0OA36A 
5A 0(K370 

55 0(K372 
004376 

00AA20 

56 004420 

57 004422 

58 004426 

59 004430 

60 004431 
o1 004432 

004^.36 

004524 

65 004524 

66 004530 

67 004534 

68 004536 

69 004542 

70 004544 

71 004552 

72 004556 

73 004560 

74 004566 
75 

76 004570 

77 00^07-; 

78 004576 
84 

85 004602 

86 004610 

87 004616 

88 004622 

89 004626 

90 004630 

91 004634 

92 004636 

93 004642 

94 004646 

95 004654 

96 C04660 

97 004664 

98 004670 

99 004674 
100 004700 
103 004704 

004710 
004714 
004720 
004724 
004730 
004734 
004740 

104 
106 
107 



005227 
001055 
104401 
000410 



005046 
113716 
104403 
001 
000 
104401 
000432 



004737 
105737 
001415 
105737 
001403 
113737 
005737 
001411 
013737 
000405 

105737 
001002 
004737 

013737 
013737 
005037 
012705 
005025 
022705 
001374 
012706 
005037 
013737 
005037 
005037 
005037 
005037 
005037 
005037 
005037 
005037 
005037 
005037 
005037 
005037 
005037 
005037 



1 777'r 
004400 

001432 
004440 



033226 
001226 

001256 

001256 
001262 



100566 

001272 
001274 
001316 
001506 

002044 

001100 

Mint 

001314 
001344 
001346 
001350 
001454 
001320 
001340 
046324 
050536 
052750 
055162 
0573/4 
061606 
064020 
066232 



2$: 



;;75$: 
>4$: 



;;76$; 
5$: 



001274 



001262 001272 



001150 



040154 
040156 



4$: 



5$: 



6$: 



7$: 



001352 



INC 
BNE 
TYPE 
BR 

.ASCIZ 

CLR 

M0V8 

TYPOS 

.BYTE 

.BYTE 

TYPE 

BR 

.ASCIZ 

JSR 

TST8 

BEQ 

"STB 

BEQ 

MOVB 

TST 

BtQ 

MOV 

BR 

TSTB 

BNE 

JSR 

MOV 
MOV 
CLR 
MOV 
CLR 
CMP 
BNt 
MOV 
CLR 
MOV 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 



#-1 
3$ 

.75$ 
?4$ 

<CRLF>/r0 

-(SP) 
XXDP.(SP) 



TEST 



.•FIRST TIME THRU HERE 
;N0 

.-.-TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 
DRIVE / 



1 
0 

.76$ 
3$ 

/. HALT PROGRAM. 

PC.$TKINT 

$ENV 

5$ 

$VECT1 
4$ 

$VEfTl,$RMVEC 

$8ASE 

6$ 

$SASE.$RMADR 
6$ 

$AUT08 
6$ 

PC .8USADH 

SRMADR^RMADR 

$«MVEC.RMVEC 

STATIN 

irORDERQ,R5 

(R5)* 

#8LKA0R.R5 
7$ 

#STACK,SP 
PS 

H2,0NESEC 

MIMJTE 

SECOND 

INTRVL+2 

PACK 

CFLAG 

DRIVE0*$F1RST 
ORIVEUJFIRST 
DRJVE2*$f IRST 
DRIVE3*$FIRST 
D/*IVE4*$FIRST 
DRJVE5+$FIRST 
DRIVE6*$F1RST 
0RIVE7*$FIRST 



CLEAR WORD ON STACK 
GET DRIVE ADDRESS 
TYPE DRIVE ADDRESS 
ONLY 1 CHARACTER 
SUPRESS LEADING ZEROS 
.'TYPE ASCIZ STRING 
.-GET OVER THE ASCI 7 

CLEAR LOC. AO AND RESTART PROGRAM. /<CRL F > 

TURN ON THE KEYBOARD INTrRRUPT 

RUN UNDER APT MODE 

NO. DO NOT BOTHER 

NEW VECTOR ? 

NOT LOAD IF = 0 

NEW VECTOR 

NEW BASE ADDRESS ? 

NO 

NEW BASE ADDRESS 



RUM^ING IN AUTO MODE ? 
YES 

CHECK R'VRM BU*i ADDRESS 

LOAD ADDRESS INTO DRIVER 

LOAD VECTOR INTO DRIVER 

CLEAR PERFORMANCE SUWARV TYPEOUT FLAG 

START OF AREA TO CLEAR 

.-LOOK FOR END OF CLEAR AREA 

;BR IF NOT FINISHED 

.•SETUP THE STACK POINTER 

.•CLEAR THE PROCESSOR STATUS WORD 

.•RESTORE ONE SECOND COUNTER VALUE 

.•CLEAR THE HOUR'S COUNTER 

.•CLEAR THE MINUTE'S COUNTER 

.•CLEAR THE SECOND'S COUNTER 

.•CLEAR INTERVAL COUNTER 

;SET 'T' K CLEAfi 'R' OR 'W COMMAND FLAG 

.•CLEAR THE 'CONTROL C FLAG 

.•RESET $fIRST FLAG FOR DRIVE 0 

.•RESET $fIRST FLAG FOR DRIVE 1 

.•RESET $FIRST FLAG FOR DRIVE 2 

.•RESET SFIRST FLAG FOR DRIVE 3 

.•RESET $FIRST FLAG FOR DRIVE 4 

.•RESET SFIRST ^LAG FOR DRIVE 5 

.•RESET SFIRST FLAG FOR DRIVE 6 

.•RESET SFIRST FLAG FOR DRIVE 7 



;AUTO SIZE FOR RH70 CONTROLLER AND DETERMINE IF IT IS 
.•JUMPERED FOR 22 OR 32 REGISTERS 
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SEO 00^^ 



108 

110 

ir 

113 

1U 

'15 

116 

117 

118 

119 

120 

121 

122 

123 

12A 

125 

126 

127 

128 

129 

130 

151 

132 

-33 

13A 

135 

156 

137 

158 

139 

K1 

142 

143 

KA 

K5 

146 

147 

150 



151 
152 
155 
154 
155 
156 
157 
158 
759 
160 



004744 
004750 
004756 
004762 
004770 
004774 
005000 
005004 
005006 
005010 
005016 
005020 
005022 
005024 
005052 
005054 
005040 

C05042 
005046 
005052 
005054 
005056 
005062 
005066 
005070 
005072 
C05076 
005100 
005106 



005112 
005116 
005120 
005124 
005150 
0051 54 
005140 
005144 
005150 
005154 
005160 
005164 
005170 
005176 
005204 
005212 
005220 
005226 
005250 
005256 
005244 



005037 
042757 
015746 
012757 
015700 
062700 
012701 
005720 
005720 
012757 
005720 
005501 
001575 
012757 
000405 
012716 
000002 

015700 
015701 
001415 
060001 
0527'«0 
022711 
001007 
00501 1 
055710 
001005 
052757 
012657 



005227 
001027 
012700 
010037 
010057 
010057 
010057 
010057 
010057 
010057 
010057 
004757 
015757 
012757 
012737 
013737 
023727 
101403 
012757 
162757 
000241 



C40162 
1 74000 
000004 
005054 
001272 
000050 
000012 



000074 
005042 



001 272 
040162 



001400 
000005 



001400 

050000 
000004 



1 77777 

1 77777 
046544 
050556 
052770 
055202 
057414 
061626 
064040 
066252 
100454 
100564 
000001 
102072 
001334 
001334 

160000 
102072 



001234 
000004 



SIZE70: 



000050 040162 



040162 



1$: 



2t: 



5$: 



001254 



4$: 



CLR 

BIC 

MOV 

MOV 

MOV 

ADD 

MOV 

TST 

TST 

MOV 

TST 

DEC 

BNE 

MOV 

BR 

MOV 

RTI 

MOV 
MOV 
BEQ 
ADD 
BIS 
CMP 
BNE 
CLR 
BIT 
BNE 
BIS 
MOV 



rhext 

#1 74000, $CPUOP 

ERRVFC,-(SP) 

#2$.ERRVEC 

SRMADR.RO 

#50. RO 

#10. .R1 

(RO)* 

(R0>« 

#50, RHEXT 

(R0)« 

R1 

1$ 

#74, RHEXT 
3$ 

#3$,(SP) 



CLEAR RM8AE OFFSET 

CLEAR CPU TVPE REGISTER 

SAVE CONTENTS Of ERROR VECTOR 

SETUP 'Tr^AP' RETURN ADDRESS 

GET RMCS1 ADDRESS 

GET REGISTER OFFSET FOR RH70 

GET NUMBER OF REGISTERS TO CHECK 

TRAP IF NOT A VALID RMBAE 

TRAP IF NOT A VALID RMCS5 

LOAD OFFSET TOR RMBAE (22 REGISTER RH) 

TRAP IF NOT A VALID REGISTER 

DONE WITH ALL 32 REGISTERS ? 

8R IF NO 

LOAD OFFSET FOR RMBAE (52 REGISTER RH) 
.•SETUP RETURN ADDRESS 



$RMADR.RO 
RHEXT, R1 
4$ 

R0.R1 

#A17!A16,(R0) 

#3,(R1) 

4$ 

(Rl) 

A17:A16,(R0) 
4$ 

#8IT15!B1T12, 
(SP)*,ERRVEC 



GET RMCS1 REGISTER 
GET RMBAE REGISTER OFFSET 
8R IF NONE 
GET RMBAE REGISTER 
SET EXTENDED ADDRESS BITS IN RMCS1 
ARE THE EXTENDED BITS SET IN RMBAE ? 
8R If NO 

CLEAR EXTENDED ADDRESS BITS IN RMBAE 
ARE THE EXTEND BITS CLEAR IN RMCS1 ? 
8R IF NO 

fCPOOP ;SET THE 11/70 CPU TYPE CODE 
.•RESTORE CONTENTS OF ERROR VECTOR 



.ROUTINE TO DETERMINE BUFFER MAX WORD COUNT AND FUDGE PACK SERIAl NUMBER 
;T0 ALLOW BAD SECTOR FILE{DEC144) TO BE READ FROM EACH DRIVE AT 
.•LEAST ONE TIME. 



001354 
001642 
001644 
001646 
160000 

001646 
001646 



SIZMEM: INC #-1 

BNE 1$ 

MOV #-1 .RO 

MOV R0,DRIVE0*$PSNM ; 

MOV R0,DRIVEl*$PSf#1 ; 

MOV R0,DRIVE2*SPSf#1 ; 

MOV R0,DRIVE3*SPSf« ; 

MOV R0.DRIVE4*$PSNM ; 

MOV R0,DRIVE5*$PSNM ; 

MOV R0,DRIVE6*$PSNM ; 

MOV R0.DRIVE7*$PSNM ; 

JSR PC.SS'ZE 

MOV $LSTA./,LSTAD 

1$: MOV #1,8UFTBL 

MOV #ENDPGM,BUFT6L>2 

MOV LSTAD,BUFTBL*4 ; 

CMP LSTAD, #160000 

8L0S 2$ 

MOV #1 60000. BUFT8L+4 

2$: sue #ENDPGM,BUF18L*4 
CLC 



FIRST TIME THRU HERE ? 
BR IF NO 

FUDGE MSB'S FOR INITIALIZING PACK S/N 

INIT. S/N FOR DRIVE 0 

INIT. S/N FOR DRIVE 1 

INIT. S/N FOR DRIVE 2 

INIT. S/N FOR DRIVE 5 

INIT. S/N FOR DRIVE 4 

INIT. S/N FOR DRIVE 5 

INIT. S/N FOR DRIVE 6 

INIT. S/N FOR DRIVE 7 

SEE HOW MUCH MEMORY ON SYSTEM 

SAVE THE LAST ADDRESS 

LOAD NLWBER 0" BUFFERS 

.•STARTING ADDRESS OF BUFFER 
LAST ADDR TO BUFFER ALLOCATION TABLE 
OVER 28K ? 
NO 

;XXDP MAX MEMORY 28k 
.•SUBTRACT PROGRAM SPACE 
CLEAR THE 'C BIT 



CZRMUBO RM05/5/2 PERF EXER (lACRO VO^.OO A-APR-81 

GET VALUE FOR SOFTWARE SWITCH REGISTER 



1 O 1 




006037 


00 ■'646 






ROR 


' Of 


005252 


162737 


GOO 144 


001646 




SUB 




005260 


105737 


001 150 






TST8 




005264 


001403 








6E0 


1 D J 








\J\) 1 






1 UVI 


005274 


VC -J ' -/ • 


001450 


001646 


3S: 


CMP 


1 A7 

lO' 


VA/ J Jv/c 










BLF 


r 


005304 




001646 


001450 




MOV 




005312 


013737 


001450 


077162 




MOV 


1 70 


005320 








4$: 




1 71 














17? 










;SEE IF 


THE Of 


1 7? 














174 


005320 


005737 


037616 




LKPAR: 


TST 


175 


005324 


001045 








BNE 


176 














1 77 


005326 


005037 


001340 




1$: 


CLR 


178 


005332 


105737 


001 150 






TST8 


179 


005336 


001040 








BNE 


180 


005340 


104401 


077t*70 






TYPE 


181 


005344 


104411 








RDLIN 


182 


005346 


01 2600 








MOV 


183 


005350 


005737 


001340 






TST 


184 


005354 


001364 








BNE 


185 


005356 


105710 








TST8 


186 


005360 


001427 








BEQ 


187 


005362 


105760 


000001 






TST8 


188 


005366 


001006 








BNE 






1??710 










190 


005374 


001406 








BEQ 


191 


005376 


122710 


000116 






CMP8 


192 


005402 


001416 








BEQ 


195 


005404 


104401 


076677 




2$: 


TYPE 


194 


005410 


000746 








BR 


195 














196 


005412 


012703 


077360 




ENTPR: 


MOV 


197 


005416 


00^757 


030700 






JSR 


198 


005422 


025727 


001450 


000006 




CMP 


199 


005430 


103003 








BHJS 


200 


005432 


012737 


000006 


001450 




MOV 


201 














202 










.•DISPLAY DRIV 


203 










;THE PROGRAM 


204 














205 


005440 


004737 


023344 




SETVEC; 


JSR 


206 


005444 


004737 


040166 






JSR 


207 


005450 


012737 


^77777 


040114 




MOV 


208 


005456 


013704 


040154 






MOV 


209 


005462 


012764 


000040 


000010 




MOV 


210 


005470 


005227 


1 77777 






INC 


211 


005474 


001407 








BEO 


212 


005476 


005737 


037616 






TST 


213 


005502 


001004 








BNE 


214 


005504 


012777 


000004 


173442 




BIT 


215 


005512 


001106 








BNE 


216 


005514 


005037 


037616 




1$: 


CLR 


217 


005520 


005004 








CLR 
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SEO 0064 



BUFTBL*4 .-CONVERT TO WORD COUNT 

#100. .BUFTBL*4 ;SAVE ROOM FOR THE 'ASS' LOADER 

SAUTOB .-RUNNING IN AUTO MODE ? 

3$ ;8R IF NO 

#1536.,BUFTBL*4 .-SUBTRACT 'XXDP' LOADER SIZE 

WRDCNT,BUFTBL*4 ;IS MAX WORD COUNT TOO LARGE ? 

4$ ;8R IF NO 

a'"^T8L*4.WRDCNT .-JSE MAX AVAIL MEMORY AS MAX WRD CNT 

WHDCNT.PARLST + 2 .'VALUE FOR THE PARAMETER TABLE 



RATOR WANTS TO CHANGE ANY PARAMETERS 

PWRFLG .-RETURNING FROM POWER FAR ? 

SETVEC .-BRANCH IF YES 

CFLAG .-CLEAR CONTROL C FlAG 

SAUTOB .-RUNNING IN AUTO MODE ? 

SETVEC ;8R IF YES 

.ASKPAR .'TYPE 'CHANGE PARAMETERS ?' 

.-READ THE ENTRY 

(SP)*,RO .-SAVE ADDRESS OF RESPONSE 

CFLAG .-CONTROL C TYPED ? 

1$ ;8R IF YES 

(RO) ;WAS RESPONSE A CARRIAGE RETURN (DEFAULT 'N')? 

SETVEC ;8R IF YES 

KRO) ;WAS IT TERMINATED WITH CARRIAGE RETURN ? 

2$ ;8R IF NO 

#'Y,(RO) ;WAS IT A 'Y' RESPONSE ? 

ENTPR ;8R IF YES 

#'N.(RO) ;WAS IT A 'N' RESPONSE ? 

SETVEC ;8R IF YES 

.8ADENT .-TYPE BAD ENTRY MESSAGE 

1$ ;TRY AGAIN 

#PARLST.R3 .-PARAMETER TABLE ADDRESS 

PC.PARfcNT ;GET THE PARAMETER ENTRY 

WRDCNT,#6 ;IS THE "WRDCNT* VALUE OK ? 

SETVEC ;8R IF IT IS 

#6,WRDCNT ;SET 'WRDCNT' TO THE MINIMUM VALUE 

STATUS AND SET UP THE OTHER SYSTEM DEVICES THAT 
LL USE. PROGRAM RETURN HERE ON POWER FAIL 

PCCKCLK .START THE CLOCK 

PC.RMINIT .-INITIALIZE THE RM DRIVER 

#-1.SAVEFG .-SET THE SAVE REGISTERS FLAG 

RMADR,R4 .GET RM/RH BASE ADDRESS 
#CLR.RMCS2(R4) .-CLEAR MASS8US CONTROLLER 

#-1 .-FIRST TIME THRU ? 

1$ ;8R IF YES 

PWRFLG .-RETURNING FROM POWER FAIL '> 

1$ .'BRANCH IF YES 

#SW02.aSWR .'TYPEOUT THE DRIVE STATUS TABLE ? 

12$ ;8R IF NOT 

PWRFLG .'CLEAR POWER FAIL FLAG 

R4 .'DRIVE TABLE POINTER 



'"ZRMUBO RM05/3/2 PERF EXFR MACRO VOA.OO 

GET VALUE FOR SOFTWARE SWITCH REGISTER 



218 005522 

219 005526 

220 005532 

00553A 
005536 
005537 

221 005540 

222 005544 

223 005550 

224 005552 
225 

226 005554 

227 005560 

228 005562 

229 005564 

230 005570 
231 

232 005572 

233 005576 
234 

235 005600 

236 005604 
237 

238 005606 

239 005612 
240 

241 005614 

242 005620 

243 005622 

244 005626 
24!) 005630 

246 005634 

247 005636 

248 005642 

249 005646 

250 005654 

251 005662 

252 005664 

253 005672 

254 005700 
25: 005702 
256 

257 oo■:^'^o 

258 0057;? 
259 

260 005714 

261 005716 

262 005722 

263 005724 

264 005730 



104401 076026 
104401 C01205 
010446 



104403 
002 
000 
104401 
105764 
100416 
001020 

105764 
001404 
100006 
104401 
000451 

104401 
000446 

104401 
000416 

104401 
000413 

005737 
001406 
123704 
001003 
104401 
000427 
104401 
104401 
012737 
122764 
001412 
012737 
122764 
001403 
012737 

104401 
000000 

005204 
0204^7 
00130; 
104401 



075552 
040036 



040046 

075724 

075745 

075633 

076001 

001432 

001432 

07601 1 

075644 
075554 
076051 
000004 

076044 
000005 



2$: 



005712 
040046 

005712 
040046 



3$: 
4$: 
5$; 
6$: 



7$: 
8$: 



076056 005712 



000010 
001203 



9$; 
10$ 

11$ 



12$ 
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SEO 00'^ 



.SYSTAT .-TYPE STATUS HEADING 

.$CRLF ; CR-LF 

R4.-(«;P> ;;SAVE R4 FOR TYPEOUT 

;;TVPE DRIVE NUMBER 

;;G0 TYPE —OCTAL ASCII 

2 ;;TYPE 2 DIGIT (S) 

0 ;; SUPPRESS LEADING ZEROS 

,8LNKS4 .-TYPE 4 BLANKS 

DRVSTA(R4) .-CHECK DRIVE'S STATUS 

5$ ;8R IF UNSAFE 

6$ ;8R IF ONLINE 

DRVTYP(R4) ;SEE IF OFFLINE OR NONEXISTENT 

3$ ;8R IF NONEXISTENT 

4$ ;8R IF OFFLINE 

.NOTRM ; DRIVE NOT AN RM05/3/2 

11$ .-CHECK NEXT DRIVE 

.NOTPRS ; DRIVE NOT PRESENT 

11$ .-CHECK NEXT DRIVE 

.UNTOFF .-DRIVE OFFLINE 

8$ .-PRINT DRIVE TYPE 

,NOTSAF .-DRIVE UNSAFE 

8$ .-PRINT DRIVE TYPE 

XXDP .-LOADED FROM THIS DEVICE ? 

7$ ;8R IF NO 

XXDP,R4 ; LOADED FROM THIS DRIVE ? 

7$ .-8R IF NO 

.LODEV .-TYPE 'LOAD DEVICE' 

11$ 

.UNTON .-DRIVE ONLINE 

,8LNKS2 .-TYPE 2 BLANKS 

#$RM03,10$ .ADDRESS OF RM03 MESSAGE 

/lf4.DRVTYP(R4) ;IS DEVICE AN RM03 ? 

9$ 'BR IF YES 

*$RM02.10$ ; ADDRESS OF RM02 MESSAGE 

#5.DfiVTYP(R4) ;IS DEVICE AN RM02 ? 

9$ ;8R IF YES 

/ir$RM05.10$ .-ADDRESS OF RM05 MESSAGE 

.-TYPE THE DRIVE TYPE MESSAGE 

0 .-MESSAGE ADDRESS HERE 

R4 .'INCREMENT DRIVE NUMBER/TABLE POINTER 

R4,/»8. .-FINISHED ? 

2$ ;8R IF NOT 

.$CRLF ; CR-LF 



rZRML8C RM05/?/2 PERF ExER "WCRO V04.00 

GET VALUE FOR SOFTWARE SWITCH REGISTER 



A-APR-S" 



1 
2 
3 

5 
6 

7 
8 
9 

10 

12 
13 
^4 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
52 
33 
3A 
35 
36 
37 
38 
39 
40 

a 

42 

43 



;INJTIALJZE PR( 



005730 
005734 
005742 
005750 
005754 
005756 
005764 
005772 

006000 
006004 
006006 
006012 

006014 
006016 
006020 
C06022 
006026 
006030 
006034 
006036 
0060^2 
006044 
006050 
006054 
006060 
006064 
006070 
006074 
006100 
006106 

006112 
006114 
006116 
006122 
006124 
006130 

006134 



004737 


033226 


001434 


STA: 


jSR 


012737 


002740 




MOV 


012737 


Q05455 


001436 




nov 


105737 


001226 






TST8 


00141 1 








6EQ 


012737 


000001 


00146, 




MOi/ 


012737 


077777 


001434 




MOV 


012737 


000027 

WWWWt ' 


001436 




MOV 


105737 


001 150 




1$: 


TST8 


001003 

\J\J ' \J\J J 








6NE 


005737 

WW ^ • 


00133^ 






TST 


003A5C 








BLE 


005001 

WW --'WW ■ 






2$: 


CLR 


005002 

WW ^ W c 








CLR 


005003 








CLR 


005737 


001 4 32 




31: 


TST 


001403 








BEO 


123701 


001432 






CMP8 


001426 








BEQ 


105761 


040036 




4$: 


TST8 


C03423 








BLE 


016300 


002044 






nov 


004737 


026602 






JSR 


004737 


027420 






JSR 


004537 


027520 






JSR 


010062 


001554 






MOV 


004737 


027020 






JSR 


005060 


000122 






CLR 


1 1 2760 


1 7777b 


000026 




M0V8 


004737 


017140 






JSR 


022322 






7S: 


CMP 


005201 








INC 


020127 


000007 


« 




CMP 


003737 








BLE 


005037 


001336 






CLR 


000137 


006306 






JMO 


012737 


000001 


001 340 


8S: 


MOV 
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SEO 0066 



PARAMETERS FOR STARTUP 



PC,$T(CINT ;]NJT]ALJZE THE KEV80ARD INTERRUPT HANDIER 

#002740. ENDCON .-INITIALIZE XFER C0UNT(uS8) 
*005455.ENDCON*2 

$ENV ;APT SCRIPT MODE, THEN MAKE IT RUN 2 MIN. 

1$ ;N0 

#1 .RATIO .-SPEED UP TEST 

#77777. ENDCON .-INITIALIZE QUICK XFER C0UNT(LS8) 
#27. ENDC0N*2 

$AUT08 .-RUNNING IN AUTO MODE ? 

2$ ;8R IF YES 

CHGADR .-START AT 200 ? 

8$ ;N0 

R1 .-DRIVE # 

R2 .-AVAIL TABLE INDEX 

R3 ;DRIVE# • 2 

XXDP .-LOADED FROM THIS DEVICE ? 

4S .-BR IF NO 

XXDP.R1 ; LOADED FROM THIS DRIVE ? 

7$ ;8R IF YES 

DRVSTA(RI) .-DRIVE ON LINE ? 

7$ ;N0 

BLKADR{R3).R0 ;LOAD DPS ADDRESS 

PC.CLRDP8 .-CLEAR DP8 BLOCK 

PC.GETID .-GET DRIVE (MBA) SERIAL NUMBER 

R5.6ETADR .-RETRIEVE BAD SECTOR FILE 

R0.NEWUNT(R2) .-LOAD DPQ ADDRESS TO ABAIL QUEUE 

PC.DRVPRM .-SETUP DRIVE PARAMETER LIMITS 

$FIRST(RO) .-RESET SFIRST FLAG FOR FIRST 204 START 

#-2.$PACK(R0) .-SETUP COMMAND 'UT* (WRITE DATA AND TEST) 

PC.WRTPK .-SETUP INITIAL PARAMETERS 

(R3)*.(R2)* .-INCREMENT INDEX 

R1 .-NEXT DRIVE 

R1.#7 .-ALL DRIVES ASSIGNNED ? 

3$ ;N0 

CHGADR .-CLEAR START FLAG 

MAIN1 .-JUMP TO WAIT PARAMETER AND BUFFER LOOP 

/rl.CFLAG .-DUMMY 'CONTROL C* FLAG 



:7«MueO RK)5/^/2 PERF EXER 
MAIM PROGRW 



I^CRO V04.00 
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SEC 006' 



2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 

15 
16 
17 

18 
19 
20 
2' 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
AO 
41 
A2 
43 
44 
45 
46 
47 
48 



006142 
00^)146 
006150 
006154 
006156 
006162 
006166 



006170 
0061 74 
006200 
006202 
006204 
006206 
006210 
006212 

006214 
006220 
006222 
006224 
006226 
006230 
006232 

006234 
006240 
006242 
006244 
006246 
006250 
006252 

006254 
006256 
006262 
006266 
006272 
006276 
006300 
006304 



005737 
001407 
005737 
001402 
000137 
004737 
000240 



012703 
012705 
005715 
001004 
005725 
005303 
001373 
000435 

012701 
005711 
001404 
021115 
001412 
005721 
000772 

012701 
005711 
001760 
021115 
001402 
00^721 
000772 

011100 
104401 
104401 
004737 
104401 
00501 5 
004737 
000737 



001 340 

001 506 

007006 
025240 



000010 
001532 



001576 



001620 



001203 
076341 
023636 
076155 

020700 



.SBTTL MAIN PROGRAM 



MAIN: 
1$: 



2$: 
3$: 



TST 
BEO 
TST 
BEO 
JMP 
JSR 
NOP 



CFLA6 
3$ 

ORDERQ 
2$ 
IDLE 
PC.KSR 



.•CHECK FOR DRIVES TO BE DROPPED 



MAINDA: 



1$: 
2$: 



3$: 
4$: 



5$: 
6S: 



7$; 



MOV 


*8. ,R5 


MOV 


wDUNI T ,R3 


TST 


/nC \ 


BNE 


3> 


TC T 

TST 


kRo) * 


DEC 


R3 


BNE 


1S 


BR 


MAIN1 


MOV 


wAVAl L ,H 1 


TC T 

TST 


(K 1 ) 




cc 


CHr 


(HI ; , Knoi 




f9 


TC T 

T5 1 




QD 




MOV 


4rUAIT,R1 


TST 


(R1) 


BEO 


2S 


CMP 


(Ri;,(R5) 


BEO 


7$ 


TST 


(RD* 


BR 


6$ 


MOV 


(RD.RO 


TYPE 


,$CRLF 


TYPE 


.DEASSG 


JSR 


PC.SUMARY 


TYPE 


.STARS 


CLR 


(R5) 


JSR 


PC.CMPRES 


BR 


2$ 



;LOOK FOR DRIVES TO BE ASSIGNED 



49 


006306 


012703 


000010 


MAIN1: 


MOV 


*8.,R3 


50 


006312 


005001 






CLR 


R1 


51 


006314 


005002 






CLR 


R2 


52 


006316 


005005 






CLR 


R5 


53 


006320 


005765 


001554 


1$: 


TST 


NEWUNT(R5) 


54 


006324 


001005 






BNE 


3S 


55 


006326 


005725 




2$: 


TST 


(R5)* 


56 


006330 


005201 






INC 


R1 


57 


006332 


005303 






DEC 


R3 



KEYBOARD INTERRUPTED ? 
8R IF NOT 

ANY DRIVES IN ORDER OoE ? 
BR IF NO, ELSE 
LET ALL DRIVES FINISH ORDER 
SERVICE THE KEYBOARD 
. .' FOR DEBUGGING ! ! 



DRIVE COUNTER 

ADDRESS OF 'DROP DRIVE' TABLE 

SEE IF ENTRY AT PRESENT POSITION 

BR IF THERE IS ONE 

INCREMENT TO NEXT TABLE POSITION 

DECREMENT DRIVE COUNTER 

BR IF MORE TO CHECK 

60 CHECK FOR NEU ASSIGNED DRIVES 

ADDRESS OF 'AVAILABLE DRIVES' TABLE 
IF AT END OF 'AVAIL' TABLE ? 
BR IF YES 

IS DRIVE IN 'AVAIL* THE TABLE ' 
BR IF YES 

NO, INCREMENT 'AVAIL' TABLE ADDRESS 
AND CONTINUE LOOKING 

ADDRESS OF THE 'WAIT' BUFFER TABLE 
AT THE END OF 'WAIT' TABLE ? 
BR IF YES 

IS DRIVE IN THE 'WAIT' TABLE ? 

BR IF YES 

NO, INCREMENT 'WAIT' TABLE ADDRESS 
AND CONTINUE LOOKING 

PUT THE DRIVE'S BLOCK ADDRESS IN RO 
CR-LF 

TYPE 'DRIVE DEASSIGNED' 

TYPE THE DRIVE'S PERFORMANCE SUMMARY 

TYPE '«***. ..ETC 

CLEAR THE 'DROP DRIVE' TABLE ENTRY 
COMPRESS THE RESPECTIVE TABLE 
SEE IF ANY MORE DRIVES 



DRIVE COUNT 

ASSIGN LIST INDEX 

'AVAIL' INDEX 

NEW DRIVE INDEX 

NEW DRIVE IN THIS POSITION 

BR IF THERE IS 

INCREMENT R5 

INCREMENT ASSIGN INDEX 

DECREMENT DRIVE COUNT 



MAIN PROGRAM 



PER^ EXER 



S8 


006 3 3A 


001371 

\J\J I J 1 




59 


006336 


000432 




60 








61 


006540 


1044J1 


001203 


62 


006344 


104401 


075625 


63 


006350 


010146 






006352 


104403 






006354 


002 






006355 


000 




64 


006356 


104401 


07641 1 


o5 


006362 


005762 


001576 


66 


006366 


001402 




67 


006370 


005722 




68 


006372 


000773 




69 


006374 


016562 


001554 


^0 


006402 


005065 


001554 


71 


006406 


156137 


040142 


72 


006414 


005037 


031662 


73 


C06420 


005722 




7t, 

75 


006422 


000741 




76 








77 








^8 








79 


006424 


005002 




80 


006426 


105737 


001530 


81 


006432 


001025 




82 


006434 


105737 


001 1 50 


83 


006440 


001020 




dA 


006442 


012737 


000001 


%'i 


006450 


013737 


001314 


86 


006456 


005037 


001344 


87 


006462 


005037 


OOl 346 


88 


006466 


005037 


001 350 


89 


006472 


005037 


001454 


90 


006476 


104401 


077120 


91 


006502 


000137 


031612 


92 








95 


006506 


005762 


001620 


9A 


006512 


001435 




95 


006514 


016200 


001620 


96 


006520 


005046 




97 


006522 


004737 


016402 


98 


006526 


012660 


000006 


99 


006532 


001423 




100 


006534 


005060 


000120 


101 


006540 


005060 


000106 


102 


006544 


004737 


0^6772 


103 


006550 


004737 


CI 7050 


104 


006554 


012705 


001506 


1 AC 

105 


006 3oO 






106 


006562 


001376 




107 


006564 


010045 




'08 


006566 


012701 


001620 


109 


006572 


060201 




no 


006574 


004737 


020700 



oiAC^O V04.00 



3$: 



4$: 

001576 5$: 
001530 
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BNE 1$ ;8R IF MORE DRIVES 

BR MAIN2 ;.S'ART OPERAflONS FOR THE AVAILABLE DRIVES 

TYPE ,$CRLF ; CR-LF 

TYPE .UN'MSG ; 'DRIVE' 

MOV RI.-^SP) ;;SAVE Rl FOR TVPEOUT 

;;TYPE DRIVE NUMBER 

TYPOS ;;60 TYPE— OCTAL ASCII 

.BYTE 2 ;;TyPE 2 DIGIT(S) 

.BYTE 0 ;; SUPPRESS LEADING ZEROS 

TYPE .ASGND ; 'STARTED' 

TST AVAIL (R2) ;AT END OF AVAILABLE TABLE 

BEO 5$ ;8R IF YES 

TST {R2)+ .-INCREMENT AVAILABLE TABLE INDEX 

BR 4$ .-CONTINUE LOOKING FOR END OF TASt E 

MOV NEWUNT(R5), AVAIL (R2) ;MOVE ADDR OF DRIVE INTO AVAIL LST 

CLR NEWUNT(R5) .-TAKE DRIVE OUT OF NEW DRIVE TABLE 

BIS8 ATA8IT(R1).ASNLST ;SET DRIVE ASSIGNED INDICATOR 

CLR AUTLST ; CLEAR AUTO ASSIGN 

TST (R2)* .-INCREMENT AVAILABLE TABLE POINTER 

BR 2$ .-LOOK FOR MORE DRIVES 



SEO 0068 



.GET PARAMETERS. BUFFER SPACE, AND START ORDERS FOR DRIVES IN 
.-THE 'AVAILABLE' QUEUE 

START FROM THE FIRST LOCATION 
ANY DRIVES ACTIVE ? 
BR IF YES 

RUNNING IN AUTO MODE ? 
_ - ,8R IF YES 

001340 MOV #1.CFLAG .-DUMMY 'COfJTROL C FLAG 

001352 MOV HZ.ONESEC .-RESTORE ONE SECOND COUNTER VALUE 

CLEAR THE HOUR'S COUNTER 
CLEAR THE MINUTE'S COUNTER 
CLEAR THE SECOND'S COUNTER 
CLEAR INTERVAL COUNTER 
TYPE 'NO DRIVES ASSIGNED' 
GIVE CONTROL TO MONITOR 

ANY DRIVES WAITING FOR THE BUFFER '> 
BR IF NO 

LOAD RO WITH THE DPB ADDRESS 
CLEAR THE STACK FOR BUFFER REO 
CALL TO GET THE BUFFER RT. 
IF O.BUffER IS STILL NOT AVAILABLE 
BRANCH IF NO BUrFER AVAILABLE 
CLEAR PARAMETER SELECT FLAG 
CLEAR THE FAIR FLAG 
FILL THE BUFFER 
SET COMMAND ANi) GO 
PUT THE WAIT QUE INTO ORDER QUE 
QUE AVAILABLE ? 
BR IF NO 

LOAD THE DP8 ADDRESS INTO THE ORDER QUE 
REMOVE THE DRIVE FROM THE 'WAIT' QUE 
OFFSET THE QUE POSITION 
COMPRESS THE QUE 







R2 




TSTB 


ASNLST 




BNE 


2$ 




TSTB 


SAUTOB 




BNE 


IS 




MOV 


#1.CFLAG 




MOV 


HZ.ONESEC 




CLR 


HOUR 




CLR 


MINUTE 




CLR 


SECOND 




CLR 


INTRVL+2 




TYPE 


.NODRVS 


1$: 


JMP 


$GET42 


2$: 


TST 


WAIT(R2) 




BEO 


5$ 




MOV 


UAIT(R2).R0 




CLR 


-(SP) 




JSR 


PC.GETBUF 




MOV 


(SP)+.$BUF(RO) 




BEO 


4$ 




CLR 


$NEXT(RO) 




CLR 


$FAIR(RO) 




JSR 


PC.FILBUF 




JSR 


PC.GODRIV 




MOV 


«rORDERQ.R5 


3$: 


TST 


(R5)* 




BNE 


3S 




MOV 


R0.-(R5) 




MOV 


#WAIT.R1 




ADD 


•?2,R1 




JSR 


PC.CMPRES 



program 



HACHO V04.00 
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SEO 0O6'> 



'2 



006600 
006602 
113 006604 

IK 

•15 006606 
16 006612 

117 

M8 0066U 
•^9 006616 
'20 006622 
'21 00662'. 
V2 006630 
'23 006634 

24 006640 

25 006642 

26 006646 

27 006650 

28 006654 
29 

30 C06656 
51 006662 
32 006666 
53 006670 

34 006674 

35 006700 

36 006702 

37 006706 

38 006712 

39 006716 

40 006722 

41 006726 

42 006730 

43 006732 

44 006734 
45 

46 C06736 

47 006742 

48 0C6750 

49 006752 

50 006756 

51 006760 

52 006762 

53 006764 
54 

55 006766 

56 006770 

57 006772 

58 006776 

59 007000 

60 007004 
61 

62 
63 

64 007006 

65 007012 

66 007014 

67 007016 



000742 
005722 
000740 

005737 
001075 

005002 
005762 
001002 
0001 37 
016200 
005760 
001010 
105760 
001403 
004737 
000404 

004737 
C04737 
005046 
004737 
012660 
001416 
004737 
005060 
005060 
004737 
012705 
005725 
001376 
010045 
000416 

005260 
022760 
101006 
012705 
005725 
001 376 
010045 
000402 

005722 
000712 
012701 
060201 
004737 
000704 



012701 
012100 
001431 
005760 



001 506 



001576 

007006 
001576 
000120 

000026 

017140 



017470 
020430 

016402 
000006 

016772 
000120 
000 106 
01 7050 
001506 



000106 
000003 

001620 



001576 
020700 

001506 
000016 



000106 







2% 


4$: 


Tsr 


(R2)* 




BR 


2$ 


5»: 


TST 


ORDERQ 




BNE 


IDLE 




CLR 


R2 


6S: 


TST 


AVAIL (R2) 




BNE 


7$ 




JMP 


IDLE 


7$: 


MOV 


AVArL{R2).R0 




TST 


$N'A ' (RO) 




BNE 


9$ 




TSTe 


$PACK(RO) 




BEQ 


8$ 




-SR 


PCWRTPK 




BR 


10$ 


8$: 


JSR 


PC.GENPAR 


9$: 


JSR 


PCLOtPAR 


10$: 


CLR 


-(SP) 




JSR 


PC. G6TBUF 




MOV 


(SP)*,$8UF{R0) 




BEQ 


12$ 




JSR 


PC.f ILBUF 




CLR 


$NEXT(HO) 




CLR 


$FA]R(RO} 




JSR 


PC GODRIV 




MOV 


#0RDER0,R5 


11$: 


TST 


(R5)* 




BNE 


11$ 




MOV 


R0,-(R5) 




BR 


15$ 


12$: 


INC 


$FAIR(R0) 




CMP 


iir3.$FA!R(R0) 




BHI 


14$ 




MOV 


*WA1T.R5 


13$: 


TST 


(R5)* 




BNE 


13$ 




MOV 


R0,-(R5) 




BR 


15$ 


14$: 


TST 


{R2) ♦ 




3R 


6$ 


1 5$: 


MOV 


#AVAIL R1 




ADD 


R2.R1 




JSR 


PC.CMPRES 




BR 


6$ 


;WAIT 


FOR A 


COMMAND TO FINISH 


IDLE: 


MOV 


JVORDERC.RI 


1$: 


MOV 


(R1)*.R0 




BEG 


4$ 


2$: 


TST 


$TATUS(RO) 



BRANCH IF DONE 
CHECK THE NEXT QUE 
LOOPING BACK 

ANr OUTSTANDING ORDERS ? 
8R IF YES 

CLEAR DRIVE TABLE POINTER 

ANY DRIVES WAITING FOR PARAMETERS 

BRANCH IF ANY 

BRANCH IF NONE 

CONTROL BLOCK ADDR IN RO 

PARAMETERS BEEN SELECTED ? 

BR IF THEY HAVE 

•R' OR 'W COMMAND FOR THIS DRIVE ' 
BR IF NO 

GET DATA PARAMETERS 
GET THE BUFFER 

60 GENERATE THE PARAMETERS 

LOAD THE PARAMETERS JUST GENERATED 

MAKE ROOM ON THE STACK FOR THE BUFFER ADDR 

GET BUFFER 

MOVE BUFFER ADDR TO DP9 
BR IF '0* ADDR (NO BUFFER) 
FILL THE BUFFER 
CLEAR PARAMETER SELECT FlAG 
CLEAR THE 'FAIRNESS' COUNT 
PUT CURRENT DPS IN DRIVER 
ADDRESS OF ORDER QUE IN R5 
END OF QUE ? 
BR IF NOT 

PUT BLOCK ADDRESS INTO CUE 
CONTINUE LOOKING 

INCREMENT THE FAIR COUNT 

THREE TIMES.8UFFER IS NOT AVAILABLE? 

BRANCH IF NOT OVER THREE TIMES 

LOAD INTO THE WAIT QUE 

AN AVAILABLE LOCATION ? 

BRANCH IF NOT 

LOAD INTO WAIT QUE 

REMOVE THE DPB FROM AVAILABLE QUE 

INCREMENT INDEX 

BRANCH BACK TO FIRE NEXT DRIVE 
'AVAILABLE* TABLE ADDRESS 
FORM ADDRESS OF LAST ENTRY 
COMPRESS THE TABLE 
CONTINUE LOOKING 



ADDRESS OF THE ORDER QUE IN R1 

PUT BLOCK ADDRESS INTO 

8R IF END OF QUE 

SEE n DRIVE FINISHED 



rZR»1UB0 RnOS/V2 PERF EXER i^iACRO vOA.OO 4-APR-81 

"WIN PROGRAM 

168 007022 001775 BEO 

169 00702A 005741 TST 

170 007026 0101A6 MOV 

171 007030 00A737 016232 JSR 

172 00703<. 004737 007150 JSR 

173 007040 005037 001342 CLR 

174 007044 004737 031134 JSR 
V5 007050 004737 03r62 JSR 

176 007054 012601 MOV 

177 007056 012705 001576 MOV 

178 007062 005725 3J: TST 

179 007064 001376 BNE 
'80 007066 011145 MOV 

181 007070 004737 020700 JSR 

182 007074 004737 0^6536 JSR 
183 

184 007100 032777 000004 172046 4$: BIT 

185 007106 001016 BNE 

186 007110 005737 001316 *ST 

187 C07114 001413 BEO 

188 007116 005037 001316 CLR 

189 007122 005737 001530 TST 

190 007126 001406 BE 3 
•91 007130 104401 076063 TYPE 

192 00^134 004737 023550 JSR 

193 007140 104401 076124 TYPE 

194 007144 000137 006142 5$: -MP 



F 6 
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SEO 0070 



2$ ;8R IF DRIVE NOT FINISHED 

-(Rl) .-BACKUP THE QUE POINTER 

RI.-(SP) .-SAVE THE out ADDHESS 

PC.STATIS .'ACCUMULATE STATISTICS FOR DRIVE IN RO 

PC.PROCES .-PROCESS END OF COMMAND 

BADSEC .'CLEAR THE BAD TRK/SEC ERROR INDICATOR 

PC.ABNRML ;SEE IF ANY DRIVES HAVE TOO MANY ERRORS 

PC.SEOP ;IS IT END OF PASS ? 

(SP)*.R1 .-RESTORE THE ORDER TA8I E INDEX 

*AMIL.R5 .-ADDRESS CF THE 'AVAIL' TABLE 

(R5)* .-IS IT THE END OF THE 'AVAIL' TABLE ? 

3$ ;BR IF NO 

(R1).-(R5) .-MOVE THE DPS INTO THE 'A^AU' TABLE 

PCCMPRES .'COMPRESS THE ORDER QUE 

PC.RELBUF .'RESTORE BUFFER 

*SW02.aSWR .'TYPE PERFORMANCE SUMMARY 

5$ ;8R IF NOT 

STATIN .'TIME TO TYPE THE PERFORMANCE S^/flARV ' 

5$ ;8R IF NOT 

STATIN .-CLEAR THE INDICATOR 

ASNLST .-ANY DRIVES ASSIGNED ? 

5$ ;8R IF NO 

.REPHD .-TYPE PERFORMANCE RCPORT HEADING 

.X.STATPR ;1YPE THE SUMMARY 

.STAR30 .-TYPE ••••••...ETC" 

MAIN ."CONTINUE THE LOOP 



3 
A 
5 

6 
7 
8 
9 
10 
11 
12 
13 
'4 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



007150 
007154 
007160 
007162 
007170 
007172 
007200 
007202 
007210 



007212 
007216 
007222 
007230 
007232 
007236 



007240 
007246 
007250 



007336 
007342 
007346 
007352 
007356 
007362 
007566 
007372 
007376 
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.•PROCESS THE COMMAND TERMINATION 



SfO 007' 



111037 
005760 
100427 
032760 
001410 
032760 
001017 
032760 
001013 



004737 
004737 
032777 
001002 
004737 
000207 



032760 
001402 
000137 



001324 
000016 

100000 

040000 

040000 



013176 
013270 
000002 

013354 



000200 
007634 



002136 
0021 36 
002150 



PROCES: M0V8 
TST 
BMI 
BIT 
BEQ 
BIT 
BNE 
BIT 
BNE 



(R0),UNIT .-DRIVE NUMBER FOR ANY ERROR MESSAGES 

$TATbS(RO) ;SEE If DRIVER SIGNALED AN ERROR 

ERPROC ;8R IF ERROR 

*8JT15.$RMCS1(R0) ;S£E IF 'SC SET 

11 ;8R IF NOT SET 

*8IT14.$RMCS1(R0) ;SEE IF 'TRE* SET 

ERPROC ;8R If SET 

*8iT14,$RMDS(R0) ;SEE IF 'ERR' SET 

ERPROC ;8R IF SET 



;N0 ERRORS DETECTED IN REGISTERS. DO SOME CHECKING ANYWAr 



1 71 724 



1$: 



2$: 



.SR 
JSR 
BIT 
BNE 
JSR 
RTS 



PC.CKERR 
PC.CKBUS 
«SW01 ,aswR 
2$ 

PC.CMPAR 
PC 



.•COMMAND TERMINATED WITH AN ERROR 
000016 ERPROC 



CHECK ERROR BITS 

CHECK BUS ADDRESS & WORD COUNT 

DO DATA COMPARE ? 

8R IF NO 

COMPARE DATA W/0 ERROR 
RETURN 

PROCESS THE ERROR 



BIT 
BEQ 
JMP 



*8IT07,$TATUS(R0) ;D0NE BIT SET ? 

ERPRC1 ;8R IF COMMAND DIDN'T COMPLETC NORMALLV 

DONE .-PROCESS ERROR WITH 'DONE' BIT SET 



007254 








ERPRC1: 


007254 


032760 


010000 


C00016 


BIT 


007262 


00^025 






BNE 


007264 


032760 


004000 


000016 


BIT 


007272 


001043 






BNE 


007274 


032760 


002000 


000016 


BIT 


007302 


001046 






BNE 


007304 


032760 


001000 


000016 


BIT 


007312 


001070 






BNE 


007314 


032760 


040002 


000016 


BIT 


007322 


001103 






BNE 


007324 


032760 


000004 


000016 


BIT 


C07332 


001121 






BNE 


00^334 


000207 






RTS 



.•PROCESS COMMAND COMPLETION WITH 'ERROR' & 'DONE NOT' BITS 



*8IT12.$TATUS(R0) .SEE IF DRIVE WAS UNSAFE 

PUNSAF ;8R IF YES 

*eiT11 .$TATUS(RO> .-PARITY ERROR OCCURRED 

UCPAft ;FW IF IT DID 

*8IT10.tTATUS(R0) .-FATAL PARITY EPROR? 

FALPAR ;8R IF THERE IS ONE 

#eiT09,$TATUS(R0) .TIMEOUT? 

SWTIM ;8R IF YES 

*8IT14I8IT01.$IATUS(R0> .-DRIVE WENT OFFLINE ? 

OFLIN ;8R IF IT DID 

#81 T2. STATUS (RO) .-PORT REQUEST TIME OUT ' 

PRTIM ;8R IF IT DID 

PC .-ERROR. RETURN 



.•DRIVE IS PERSISTENTLY UNSAFE 



104401 
004737 
1044^4 
004737 
004737 
004737 
004737 
004 '37 
000137 



001203 
021046 
071022 
021126 
021566 
022236 
024724 
022710 
031054 



PUNSAF 



TYPE 
JSR 

DISPLY 

JSR 

JSR 

JSR 

JSR 

JSR 

JMP 



.SCRL"^ 
PC. LINE1 
,EM12 
PC.LINE2 

pc.l:ne3 

PC,LIN£4 
PC.JNCTOT 
PC.LINE7 
DROP 



CR-LF 

PRINT LINE 1 OF ERROR MESSAGE 
PERSISTENT DEVICE UNSAFE MESSAGE 
PRINT LINE 2 OF ERROR MESSAGE 
PRINT LINE 3 OF ERROR MESSAGE 
PRINT LINE 4 OF THE ERROR MESSAGE 
INCREMENT TOTAL ERROR COUNT 
PRINT LINE 7 OF ERROR MESSAGE 
DROP THE DRIVE 



.•UNCORRECTABLE MASS8US PARITY ERROR OCCURRED 



~ia;\ program 



•lACHO VO^.JG 



H 6 

4-APR-8^ 01:*2:?3 PAGE 



JO 








y ~ 


\J\J 1 H\Jc 


1 04401 


rO1203 


AO 




104401 


001203 


O 1 




1 04i.ni 


070724 
V' V' 


UC 




00040^ 
































104401 


001 203 


67 


007424 


104401 


001203 


68 


007430 


104401 


070767 










V 




104401 


07631 1 


71 


007440 




075625 


f c 


007444 


013746 


001 324 




0074^0 


104403 








002 






00745'? 


000 




77 


CO 74 54 


004737 


024724 




007460 


032777 


1 00000 


» > 


007466 


001401 




76 


007470 


000000 






00747? 


000207 




78 








79 








ov 










007474 


004737 


021046 




007500 


104414 


071053 




007504 


004737 


021 126 




007510 


004737 


021566 


8*) 


007514 


004737 


022236 




007520 


004737 


024724 

VC^ C"» 


87 


0075P4 


004737 


0227"' 0 


88 


007530 


000207 

wWC V r 




89 

O^ 








90 








91 








9P 


007532 


104401 


001 203 


9^ 


007536 


004737 


021046 


94 


007542 


104414 


071125 


95 


C07546 




021 126 


96 


007552 


0047^? 


021 566 


97 


007556 


004737 


0222'S6 


98 


007562 


004737 


024 724 

vc ~ • c ■* 


99 




004737 


022710 


100 

1 \J\J 


0075 "^2 


000137 


C31054 


101 
















103 








104 


007576 


004737 


021046 


705 


007602 


104414 


071150 


108 


007606 


004737 


02)126 




007612 


004737 


021566 




007616 


004737 


022256 


109 


007622 


004737 


024724 


no 


007626 


004737 


022710 



UCPAR: TYPE 
TVPE 
TYPE 
BR 



,$CRLF 
.$CRLF 
.EM10 
FALPR1 



CR-Lf 
CR-LF 

•uncorrectable PARITY 
FINISH PROCESSING ThE 



ERROR' 
ERROR 



MESSAGE 



.••FATAL* MASS8US PARITY ERROR OCCURRED 



171466 



FALPAR: TYPE 
TYPE 
TYPE 

FALPR1: TYPE 
TYPE 
MOV 

TYPOS 

.8YTE 

.8YTE 

JSR 

BIT 

BEQ 
HALT 
1$: RTS 



.SCRLF 

.$:rlf 

.EM11 

.MSGON 

.UNTMSG 

UNIT.-(Sr) 



2 
0 

PC.INCrOT 

xrsuis.asuR 

1S 

PC 



.•SOFTWARE TIMEOUT OCCURRED 



SWTIM: 



JSR 

OISPLY 

JSR 

JSR 

JSR 

JSR 

JSR 

RTS 



PC.LINE1 
.EMI 3 
PC.LINE2 
PC.LINE3 
PC.LINE4 
PC. INC TOT 
PC. L INF 7 
PC 



.•DRIVE WENT OFFLINE 



OFlIN: 



TYPE 
JSR 

DISPLY 

JSR 

JSR 

JSR 

JSR 

JSR 

JMP 



. SCRLF 

PC.LINEI 

.EMI 4 

PC.LINE2 

PC.LINE3 

PC.LINE4 

PC.INCTOT 

PC.LINE7 

DROP 



;P0RT REQUEST TIMEOUT ERROR 



PRTIM; 



JSR 

DISPLY 

JSR 

JSR 

JSR 

JSR 

JSR 



PC.LINEI 

.EM15 

PC,LINE2 

PC.LINE3 

PC.LINE4 

PC.JNCTOT 

PC.L1NE7 



CR-LF 
CR-LF 

•FATAL PARITY ERROR* MESSAGE 

TYPE 'ON' 

TYPE 'DRIVE* 

.•SAVE UNIT FOR TYPEOuT 

;TYPE DRIVE NUMBER 

;G0 TYPE--OCTAL ASCII 

/TYPE 2 DIGIT(S) 

.-SIFPRESS LEADING ZEROS 

INCREMENT TOTAL ERROR COUNT 

HALT ON ERROR ? 

8R IF NOT 

ERROR HALT 



.•PRINT LINE 1 OF ERROR MESSAGE 
.-PRINT THE TIME OUT MESSAGE 
.•PRINT LINE 2 OF ERROR MESSAGE 
.-PRINT LINE 3 OF ERROR MESSAGE 
."PRINT LINE 4 OF ERROR MESSAGE 
.•INCREMENT TOTAL ERROR COUNT 
.•PRINT LINE 7 OF ERROR MESSAGE 
.•RETURN 



; CR-LF 

;PRINT LINE 1 OF THE ERROR MESSAGE 
;PRINT OFFLINE MESSAGE 



.•PRINT LINE 2 OF 
.•PRINT LINE 5 OF 
.•PRINT LINE 4 OF 



THE ERROR MESSAGE 
THE ERROR MESSAGE 
THE ERROR MESSAGE 



.•INCREMENT TOTAL ERROR COUNT 



.-PRINT LINE 7 OF 
;DROP THE DRIVE 



THE ERROR MESSAGE 



;TYPE LINE 1 OF THE ERROR MESSAGE 
;PRINT PORT TIME OUT MESSAGE 
;TYPE LINE 2 OF THE ERROR MESSAGE 
;TYPE LINE 3 OF THE ERROR PASSAGE 
;TYPE LINE 4 OF THE ERROR MESSAGE 
.•INCREMENT TOTAL ERROR COIWT 
.•TYPE LINE 7 OF ^HE ERROR MESSAGE 



■/PliUBO PERf EXER 

•nAIM PROGRAM 

0C7632 000207 



113 

r9 00763A 
i:0 00764? 
121 007644 

122 

123 007650 

124 007656 

125 007660 
126 

127 007664 

128 00767? 

129 007674 
1^0 

131 007700 
^32 00''706 
133 007710 
154 

155 007/14 
136 C07722 
1?7 007724 
15? 

159 007730 
UO 007736 
141 007740 
142 

^43 007744 

144 007752 

145 007754 

147 007760 

148 007766 

149 007770 
150 

151 007774 

152 010002 

153 010004 
154 

155 010010 
'56 010016 
57 010020 

• j9 010024 

160 010032 

161 010034 
162 

163 010040 

164 010046 

165 010050 
166 

167 010054 

168 010062 

169 010064 

170 010072 

171 010074 



032^60 
001402 
000137 

032760 

001402 
000137 

032760 
001402 
0001 37 

032760 
001002 
0001 37 

032760 
001402 
000137 

032760 
001402 
000137 

032760 
001402 
000137 

032760 
001402 
000137 

032760 
001402 
000137 

032760 
001402 
0001 37 

032760 
001402 
000137 

032760 
001402 
000137 

032760 
001405 
032760 
001401 
000207 



000030 
012610 
040000 

012610 
040000 
010624 
040000 
012550 
000400 
011132 
000020 
011310 
000200 
011464 
020000 
011744 
000010 
012072 
000040 
012512 
002000 
012164 
004000 
012216 
001000 
002000 
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RTS PC .-RETURN 

.•PROCESS COMMAND COMPLETION WITH 'ERROR' t 'DONE' BITS SET 

000016 DONE: BIT #8IT04.BIT03.$TATUS(R0) .'UNSAFE OCCURRED 

BEQ IS ;BR IF NOT 

JMP UNSAF .-REPORT UNSAFE 

002152 1$: BIT #8IT14.$RMER1(R0; ;l/NSAFE OCCURRED 

BEQ 2$ :BR IF NOT 

JMP UNSAF .-REPORT UNSAFE 

002146 2S: BIT *8ITU.$RMCS2(R0) ;IS 'WCE* SET ? 

BFQ 3$ ;8RANCH ]f NOT SET 

JMP WCKER ;WRJTE CHECK ERROR 

002150 3$: BIT #8J T 1 4 ,$RMDS(R0; .-CHECK 'ERR* 

BNE 4$ ;8R IF SET 

JMP TRFER .-PROCESS 'TRE' 

002152 4$; BIT *8iT08.$RMERl (RO) ;'HCRC' SET? 

BEQ 5$ ;8R IF NOT 

JMP HCRCER .-PROCESS 'HCRC 

002152 5$: BIT #81 T04.$RMER1 (RO) ;'FMT* SET? 

BEQ 6$ :8R IF NOT SET 

JMP CKFMT .-CHECK FORMAT ERROR 

002152 6S: BIT *8IT07,$RMER1 (RO) ;'HCE' SET? 

BEQ 7$ ;8R IF NOT SET 

JMP CKHCE .-CHECK 'HCE* ERROR 

002152 7$: BIT *8IT13.$RMER1 (RO) .-'OPI' SET? 

BEQ 8$ ;8R IF NOT SET 

JMP OPIER .-REPORT "OPI' 

002152 8$: BIT #8IT3,$RMER1 (RO) .-'PAR* SET? 

BEQ 9$ ;8R IF NOT SET. 

JMP PARER ; REPORT 'PAR* 

002152 9$: BIT #8IT5,$RMER1 (RO) ;*WCF' SET? 

BEQ 10$ ;8R IF NOT SET 

JMP WCFER .REPORT 'WCF' 

002152 10$: BIT *8J TIO.SRMERI (RO) ;'IAE' SET? 

BEQ 11$ ;8R IF NOT SET 

JMP lAEER .-REPORT "lAE* 

002152 11$: BIT #81 T1 1 .$RMER1 (RO) ;'ULE' SET? 

BEQ 12$ ;8R IF NOT SET 

JMP WLEER .-REPORT 'ULE' 

002152 12$: BIT #8IT9.$RMER1(R0) ;'AOE' SET? 

8EQ 13$ ;8R IF NOT SET 

002150 BIT #8IT10.$RMDS(R0) ;'LBT' SET? 

BEQ 15$ ;8R IF NOT SET 

RTS PC ;'AOE' & 'lBT* SET. EXIT 



"ZRMUBC RM05/^/2 PfRF EXER 



MACRO VOA.OO 4-APR-81 



i»1AIM PROGRAM 






1 12 








■•73 


010076 


032760 


01 0000 


1 74 


OlOIOf 


001402 




1 75 


010106 


000137 


012050 


176 








1 77 


010112 


005760 


002152 


178 


010116 


100002 




179 


010120 


000137 


010156 


180 








181 


010124 


032760 


040000 


■•82 


0101 32 


001006 




135 


A1 A 1 T / 

010154 


032760 


100000 


18A 


Ai A^ y ^ 

010142 


001004 




185 


/\4 At y y 

010144 


000137 


011256 


^86 








187 


/M A4 C A 

010150 


0001 37 


012450 


188 


A 1 A1 C / 

010154 


000207 




189 








190 








.91 








192 


Al A1 C 

010156 


004737 


020714 


193 


010162 


000207 




194 


A4 A1 y 

010164 


026027 


002202 


195 


0101 72 


101006 




196 


A1 A1 7/ 

0101 


005760 


002202 


9^ 


A 1 A "^AA 

010^:00 


001403 




198 


Al A">A T 

010202 


005760 


002204 


199 


Al A^A^ 

010206 


001026 




200 


A1 AH A 

010210 


004737 


021046 


201 


A1 ATi / 

010^:1 A 


104414 


072577 


202 


Al AnA 

0102^:0 


004737 


021126 


205 


Ai A"> ""iy 

01 0224 


004737 


024724 


204 


A1 ATI A 

010250 


012737 


000003 




A^ ATI^ 

010256 


004737 


016104 




01024<r 


000403 




ZQf 


A1 AT/ y 

010<r44 


004737 


022626 


lAO 

208 


A1 AICA 

0102jU 


000402 




209 


A1 AlC T 

010252 


004757 


022634 


A 

210 


A1 AOC^ 

01 02^0 


004737 


022710 


21 1 


A1 AOil^O 

01 yjcfic. 


000207 




2\2 








21 5 








214 








215 


A 1 A IX. / 

010264 


004737 


021046 


216 


A 1 A O 7A 

0102/^0 


104414 


071225 


217 








218 


A1 f\'i7/ 

0 102/^4 


004737 


021126 


219 


Ai AlriA 

OIOMaJ 


004737 


021566 


nA 

220 


Ai AlAy 

010304 


004737 


022236 


221 


AI ATI A 

010510 


004737 


015352 


222 


AI ATi / 

010514 


012737 


110100 


CCJ 


'/ tvjcC 


032760 


010100 


22t* 


010330 


001003 




22^ 


010332 


004737 


022600 


?26 


010336 


000477 




2?7 


010340 


012737 


000020 


??8 


010346 


005001 





010040 



001 330 



001326 
002152 



001330 IS 









BEQ 




JMP 


14$: 


TST 




BPL 




IMP 


15$: 


BIT 




RMP 
DnlC 




BIT 




BNE 




JMP 


16$: 


JMP 


17$: 


RTS 


.•PROCESS DATA 


DCKER: 


JSft 




RTS 




CMP 




6HI 




TST 




BEQ 




TST 




BNE 


1$: 


JSR 




DISPLY 




JSR 




JSR 




MOV 




JSR 




BR 




JSR 




BR 


2$: 


JSR 


3$: 


JSR 




RTS 


;THE VALUES IN 


4$: 


JSR 




DISPLY 


DCKER1 : 


JSR 




JSR 




JSR 




JSR 




MOV 




BIT 




BNE 




JSR 




BR 


1$: 


MOV 




CLR 
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SEO 0074 



#81T12.$RMER1(R0) ;SEE If 'DTE* SfT 

14$ ;8R IF NOT 

DTEER .-REPORT 'DTE' ERROR 



$RMER1 (RO) 

15$ 

DCKER 



SEE If 'DCK' SET 
8R IF NOT 
PROCESS 'DCK' 



*8iT14,$RMER2(R0) .-'SKI' SET 

16$ .-BRANCH IF SKI SET 

*8IT15,$RMER2(P0) ;'8SE' SET ? 

17$ .-BRANCH IF SO (NO. OTHER ERROR) 

DRVER .-REPORT ERROR 



SKIER 
PC 



/REPORT SKI ERROR 

.•EXIT FROM ERROR A^iALySIS 



ROUT- 



;'DCK*) CHECK ERROR 



PC.SPOTCK ;SEE IF ERROR AT A BAD SECTOR ON THE DISK 

PC ;IT IS, DON'T REPORT IT 

$RMEC1(R0) .#10040 ;IS POSITION COUNT OVER MAXIMUM ? 

1$ ;8H IF YES 

$RMEC1(R0) .-POSITION COUNT 0 ? 

1$ ;8R IF YES 

$RMEC2(R0> .-VALUE IN PATTERN REGISTtR ? 

4$ .-BR IF YES 

PC.LINEl .-TYPE FIRST LINE OF ERROR MESSAGE 

.EM45 .-TYPE 'ECC LOGIC ERROR' 

PC. LINE 2 .-TYPE LINE 2 OF ERROR MESSAGE 

PC. INC TOT .-INCREMENT TOTAL ERROR COUNT 

*3. RETRY ;RETRY COUNT 

PC.$RETRY .-RETRY THE COMMAND 

2$ .-RETRY WAS NOT SUCCESSFUL 

PC.LINE6C .-TYPE LINE tZ OF ERROR MESSAGE 

3$ .-FINISH THE ERROR REPORT 

PC.LINE6D .-TYPE LINE 6D OF ERROR MESSAGE 

PC.L1NE7 .-TYPE LINE 7 Of ERROR MESSAGE 

PC .-RETURN 

THE ECC REGISTERS ARE CORRECT. REPORT 'DCK' ERROR 



PC.LINEl 
.EM21 



.PRINT LINE 1 OF ERROR MESSAGE 
;DATA CHECK ERROR 



PC.LINE2 ;PRINT LINE 2 OF ERROR MESSAGE 

PC.LINE3 ;PRINT LINE 5 OF ERROR MESSAGE 

PC.LINP4 .-PRINT LINE 4 OF ERROR MESSAGE 

PC.PRTBAD ;SEE IF BAD SECTOR TO BE PRINTED 

«3IT15!BIT12:8IT06,MASK ;LOAD ERROR MASK 
/ir8IT12:BIT06.$RMER1(R0> ."CHECK 'DTE' & 'ECH' 



1$ 

PC.LINE6 
8$ 

*16. .RETRY 
Rl 



BR IF SET 
PRINT LINE 6 OF ERROR MESSAGE 
FINISH THE ERROR REPORT 
RETRY COUNT 

Rl IS OFFSET CODE POINTER 



program 






?29 








230 


010350 


004737 


01 7050 


?31 


010354 


005760 


000016 


232 


010360 


001775 




233 


010362 


1 00075 




234 


010364 


032760 


000200 


235 


010372 


001006 




236 


010374 


004737 


024724 


237 


010400 


104414 


074732 


238 


010404 


0001 37 


007254 


239 


010410 


033760 


001 326 


2sO 


010416 


001430 




2A1 


010420 


032760 


01010C 




010426 


001437 




2^3 


010430 


105237 


001331 


24A 


010434 


123737 


001 330 


245 


010442 


001342 




246 


010444 


005201 




2^7 


010446 


M6137 


002414 


248 


01 0454 


001435 




249 


010456 


062737 


000002 


250 


010464 


004737 


015766 


251 


A/ 

010470 


005737 


070340 


252 


010474 


001775 




253 


010476 


100324 




254 


/\1 f\C f\f\ 

010500 


004737 


023132 


255 


f\C f\i 

010504 


004737 


024630 


256 


010510 


004737 


024724 


257 


010514 


004737 


022710 


258 


A^ AC A 

010520 


004737 


015352 


259 


A^ A C / 

010524 


000436 




260 


A1 AC 

010526 


004737 


022620 


261 


010532 


004737 


022536 


262 


A 1 AC 

010536 


004737 


024^04 


263 


A ^ AC / T 

010542 


004737 


014l06 


264 


A1 ACV ^ 

010546 


000407 




265 








266 


A1 ACCA 

010550 


004737 


022634 


267 


Ai AC C / 

010554 


000753 




268 


AI AC C Z 

010556 


004737 


022612 


269 


A^ AC Z O 

010562 


004737 


024604 


270 


A AC * Z 

010566 


012737 


000001 


271 


A * AC 

0105/4 


004737 


013372 


272 


A ^ A^ AA 

010600 


105737 


001357 


273 


AI A^ A/ 

010604 


100406 




274 


010606 


004737 


024724 


275 


A^ A^ ^ 

010612 


104414 


075126 


276 


A 4 A^ 1 ^ 

010616 


004737 


022710 


277 


A1 f\A. 

010622 


000207 




278 








279 








cOV 








281 


010624 


03J760 


100000 


282 


010632 


001034 




283 


010634 


004737 


021046 


284 


010640 


104414 


071331 


285 


C10644 


005037 


001326 



l-WCRO .04.00 



2$: 
3$: 
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14$: 



4$: 



5$: 
6$: 



7$: 
8$: 

9$: 

10$: 

11$: 



12$: 
13$: 



JSR 
TST 
BEQ 
BPL 
BIT 
6NE 
JSR 

DISPLY 

JMP 

BIT 

BEQ 

BIT 

BEQ 

INCe 

CMP8 

BNE 

INC 

M0V8 

BEC 

ADD 

JSR 

TST 

BEQ 

BPL 

JSR 

JSR 

JSR 

JSR 

JSR 

BR 

JSR 

JSR 

JSR 

JSR 

BR 

JSR 

BR 

JSR 

JSR 

MOV 

JSR 

TST8 

BMI 

JSR 

DISPLY 

JSR 

RTS 



PC.60DRIV 
$1ATUS(R0) 
3$ 
10$ 

*8J ■7,$TATUS(R0) 
US 

PC.INCTQT 
.LIN8M 
ER'-'RCl 

MASK,$RMER1(R0) 
5$ 

*8IT12;BIT6,$fiMER1 (RO) 
7$ ;8R IF 

RETRY+1 
RETRY. RETRYrI 

2$ 

R1 

OFF C0D(R1),6ENDP8*$FMT 
9$ ■ 
*2. RETRY 
PC.OFrST 
GENDP8*$TATUS 
4$ 
2$ 

PC, LINES 
PC.INCHRD 
PC, INC TOT 
PC,LINE7 
PCPRTBAD 
13$ 

PC. LINE 68 
PC. LINE 58 
PC.INCSOF 
PC.ECC 
11$ 



'ERMINlATfD NORMALi 



STILL SET ? 



.-RETRY 

.•TEST FOR DONE 
;8R IF NOT DONE 
;8R IF NOT ERROR 

.-SEE IF COMMAND 
;8R IF NOT 

.•INCREMENT TOTAL ERROR COUNT 
; 'DIFFERENT ERROR DURING RETRY' 
;SEE WHICH ERROR 
.•LOOK AT CURRENT ERROR 
;8R IF DIFFERENT ERROR 
;'ECH' OR 'DTE' 
NEITHER SET 
INCREMENT RETRY COUNT 
.'DONE ? 
;8R IF NOT 
INCREMENT TA8LE INDEX 
.•OFFSET CODE 
;8ft IF END OF OFFSET TABLE 
.-NEW RETRY LIMIT 
.•OFFSET 

;SEC IF FINISHED WI^H OFFSET 
;8R IF NOT 

;8R IF NO ERROR PERFORMING OFFSET 
.•PRINT LINE 8 OF ERROR MESSAGE 
.•INCREMENT 'HARD* ERROR COUNT 
.•INCREMENT TOTAL ERROR COUNT 
.-PRINT LINE 7 OF ERROR MESSAGE 
THE BAD SECTOR 
IP AND RETURN 
LINE 68 OF ERROR MESSAGE 
LINE 58 OF THE ERROR MESSAGE 
.•INCRE.IENT 'SOFT' ERROR COIWT 
.•CORRECT THE ERROR USING ECC AND CHECK IT 
.•COMPARE THE BUFFER 



.•PRINT 
.•CLEAN 
.•PRINT 
.PRINT 



PC,LIN£6D 
6$ 

PC, LINE6A 

PCINCSOF 

#1,FRSTER 

PC.CMPARD 

FRSTER+1 

13$ 

PC.INCTOT 

.LIN9G 

Pf.LlNE7 

PC 



.PRINT LINE 6D OF 
."INCREMENT ERROR 
.•PRINT LINE 6A OF 
.INCREMENT 'SOFT' 

;SET PROCESSING ' 
.•COMPARE THE BUFF 
.•ERROR IN COMPARE 
.•BRANCH IF ERROR 
.•INCREMENT TOTAL 
.••DATA COMPARE OK 
.•PRINT LINE 7 OF 
;REnjRN 



ERROR MESSAGE 

COUNT 

ERROR MESSAGE 

ERROR COUNT 

DCKER' INDICATOR 

ER 
•> 

ERROR COUNT 

MESSAGE 
ERROR MESSAGE 



.•WRITE CHECK ERROR PROCESSING 

WCKER: BIT #dIT15.$RMER1 (RO) 

BNE 2$ ;8R IF 

JSR PCLINEI .-PRINT 

DISPLY .EM23 ;PRINT 

CLR MASK ; CLEAR 



.-SEE IF "DCK* SET ALSO 
IT IS 

LINE 1 OF ERPOR MESSAGE 
WCE I DCK NOT 
ERROR MASK 



"ZHMueO RM05/^/2 PERF BXBR 
MAIN PROGRAM 



MACRO V04.00 
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SEO 0076 



288 


010650 


004737 


021126 






JSR 




010654 


004737 


C21566 
022236 






JSR 




010660 


004737 






JSR 




010664 


004737 


022326 






JSR 


289 


010670 


004737 


024724 






JSR 


290 


010674 


012737 


000003 


001330 




MOV 


291 


010702 


004737 


016104 






JSR 


292 


010706 


000403 








BR 


293 


010710 


004737 


022626 






JSR 


29A 


010714 


000501 








BR 


295 


010716 


004737 


022634 




1$: 


.SR 


296 


010722 


000476 








BR 


297 


010724 


004737 


02071 




2$: 


JSR 


298 


010730 


000477 








BR 


299 


010732 


004737 


021046 






JSR 


300 


010736 


012737 


071256 


010764 




MOV 


301 


010744 


032760 


040000 


002146 




BIT 


302 


010752 


001003 








BNE 


303 


010754 


012737 


072157 


010764 




MOV 


304 














305 


010762 


104414 






3$: 


DiSPLr 


306 


010764 


000000 






4$: 


.WORD 


309 


010766 


004737 


021126 






JSR 




010772 


004737 


021 566 






JSR 




010776 


004737 


022236 






JSR 




011002 


004737 


022326 






JSR 


310 


011006 


032760 


000100 


002152 




BIT 


311 


011014 


001441 








BEQ 


312 


011016 


012737 


000020 


00 ■'330 


5$: 


MOV 


313 


011024 


004737 


017050 




61: 


JSR 


314 


011030 


005760 


000016 




7$: 


TST 


31b 


011034 


001 775 








BEQ 


316 


011036 


100405 








BMI 


317 


011040 


105237 


001331 






INCB 


318 


011044 


004737 


022626 






JSR 


319 


011050 


000423 








BR 


320 


011052 


105237 


001331 




8$: 


INC8 


321 


011056 


123757 


001330 


001331 




Cf1P8 


322 


011064 


001714 








BEQ 


323 


011066 


032760 


100000 


002152 




BIT 


324 


011074 


001407 








BEQ 


325 


01 1076 


032760 


000100 


002152 




BIT 


326 


011104 


001347 








BNE 


327 


011106 


004737 


022626 






JSR 


328 


011112 


000402 








BR 


329 


011114 


004737 


023132 




9$: 


JSR 


330 


011120 


004737 


024724 




10$: 


JSR 


331 


011124 


004737 


022710 






JSR 


332 


011130 


000207 






11$: 


RTS 



PC. I 1NE2 

PC.LINE3 

PC.LINE4 

PC.LINE5 

PC.INCTOT 

#3. RETRY 

PC.$RETRY 

1$ 

PC.LINE6C 
10$ 

PC.LINE6D 
10$ 

PC. SPOT CK 
11$ 

PC.LINEI 
*EM22.4$ 
*8ITH,$RMCS2 
3$ 

#EM37.4$ 



PC,LINE2 

PC.LINE3 

PC,LINE4 

PCLINES 

«eiT06,$RMER1 

10$ 

*16..RETRV 

PC.GODRIV 

$TATUS(RO) 

7$ 

8$ 

RETRy*1 

PC,LINE6C 

10$ 

RETRY+l 
RETRY. RETRY+1 
1$ 

#8IT15.$RMER1 
9$ 

#eiT06,$RMERl 
6$ 

PC,LINE6C 
10$ 

PC.LINE8 
PC.INCTOT 
PC.LINE7 
PC 



PRINT LINE 2 OF ERROR MESSAGE 
PRINT LINE 3 OF ERROR MESSAGE 
PRINT LINE 4 OF ERROR MESSAGE 
PRINT LINE 5 OF ERROR MESSAGE 
INCREMENT TOTAL ERROR COUNT 
RETRY LIMIT 
RETRY THE OPERATION 
RETRY UNSUCESSFUL 
PRINT LINE 6C OF ERROR MESSAGE 
FINISH PROCESSING THE ERROR 
PRINT LINE 6D OF ERROR MESSAGE 
FINISH PROCESSING THE ERROR 
SEE IF ERROR AT BAD SECTOR ON THE DISK 
EXIT IF AT BAD SECTOR ON DISK 
PRINT LINE 1 OF ERROR MESSAGE 
ASSUME THAT EM22 WILL BE PRINTED 
(RO) .-DID 'WCK' ALSO SET ? 

8R IF IT DID 

MESSAGE FOR 'DCK' AND 'WCK* NOT DURING 
WRITE CHECK 
TYPE THE ERROR MESSAGE 
MESSAGE ADDRESS GOES HERE 
PRINT LINE 2 OF ERROR MESSAGE 
PRINT LINE 3 OF ERROR MESSAGE 
PRINT LINE 4 OF ERROR MESSAGE 
PRINT LINE 5 OF ERROR MESSAGE 
(RO) ;ECH SET ALSO ? 

FINISH PROCESSING THE ERROR 
RETRY LIMIT - 16 (10) 
RETRY THE COMMAND 
COMMAND FINISHED ? 
BR IF NOT 

BR IF ERROR ON COMMAND 
INCREMENT RETRY COUNT 
PRINT LINE 6C OF ERROR MESSAGE 
FINISH ERROR PROCESSING 
INCREMENT RETRY COUNT 
DONE ? 

,8R IF AT RETRY LIMIT 
(R05 ;'DCK' SET 



(R05 



;8R If NOT - DIFFERENT ERROR 



333 
334 
335 
336 
337 
338 
339 
340 



.•REPORT 'HCRC ERROR 



011132 004737 020714 

011136 000446 

011140 004737 023216 

011144 004737 016012 

011150 004737 021046 



HCRCER: JSR 
BR 
JSR 
JSP 
JSR 



PC.SPOTCK 
3$ 

PC.READDR 
PC. RE ADHD 
PC.LINEI 



;'ECH' ALSO SET ? 
BR IF IT IS. RETRY COMMAND 
PRINT LJNE 6C OF ERROR MESSAGE 
FINISH PROCESSING ERROR 
PRINT LINE 8 - 'DIFFERENT ERROR 
INCREMENT TOTAL ERROR COUNT 
FINISH THE ERROR MESSAGE 
RETURN 



SEE IF ERROR AT BAD SECTOR 
EXn IF IT IS 
READ ERROR SECTOR HEADER 
GET THE HEAD INFORMATION 
PRINT LINE 1 OF ERROR MESSAGE 



CZRMUBO RM05/5/2 PERF EXER 
MAIN PROGRAM 
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SEO 007/ 



5A1 

342 

343 

544 

345 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

36/ 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 



011154 
011160 
011164 
011170 
01 1 1 74 
011200 
011204 
011210 
011216 
011224 
011230 
011232 
011236 
011242 
011244 
011250 
011254 



011256 
011262 
011266 
011272 
011276 
01 1 302 
011306 



011310 
011316 
011320 

011324 
011330 
011334 
011342 
011344 

011350 
011354 
011356 
011362 
011366 
011372 
011376 
011402 
011406 
011412 
011416 
011424 
011432 
011436 
011440 
011444 
01 1450 



1044'' 4 


071204 






DISPLV 


,EM20 


004737 


G21 126 






JSR 


PC,LINE2 


004737 


021566 






JSR 


PC,LINE3 


004737 


022236 






JSR 


PC,LINE4 


004737 


022470 






JSR 


PC, LINE 5A 


004737 


024604 




1S: 


JSR 


PCINCSOF 


004737 


024724 






JSR 


PC.INCTOT 


012737 


000400 


001326 




MOV 


#81 T8, MASK 


012737 


000003 


001330 




MOV 


#3. RETRY 


004737 


016104 






JSR 


PC.JRETRY 


000405 








BR 


2$ 


004737 


022626 






JSR 


PC,LINt6C 


004737 


022710 






JSR 


PC,LINE7 


000404 








BR 


3$ 


004737 


022634 




2X: 


JSR 


PC.LINE6D 


004737 


022710 






JSR 


PC.LINE7 


000207 






3$: 


RTS 


PC 








; REPORT 


DRIVE 


ERROR 



004757 
104414 
004757 
004737 
004757 
004737 
000207 



032760 
001402 
000137 

004737 
004737 
052737 
001002 
000137 

004737 
000442 
004757 
104414 
004737 
004737 
004757 
004737 
004737 
004737 
012737 
012737 
004737 
000405 
004737 
004737 
000404 



021046 
071621 
021126 
021566 
024724 
022710 



DRVER: 



JSR 

OISPLY 

JSR 

JSR 

JSR 

JSR 

RTS 



PC.LINE1 

.EM30 

PC.LINE2 

PC.LiNE3 

PC.INCTOT 

PC.LINE7 

PC 



REPORT ' HCRC ' 

PRINT LINE Of ERROR MESSAGE 
PRINT LINE 3 OF FRROR MESSAGE 
PRINT LINE 4 Of ERROR MESSAGE 
PRINT THE HEADER INfORMATION 
INCREMENT 'SOFT' ERROR COUNT 
INCREMENT TOTAL ERROR COUNT 
SET ERROR MASK 
RETRY LIMIT 
RETRY COMMAND 
RETRY NOT SUCESSFUL 
PRINT LINE 6C OF ERROR MESSAGE 
PRINT LINE 7 OF ERROR MESSAGE 
EXIT 

PRINT LINE 6D OF ERROR MESSAGE 
PRINT LINE 7 OF ERROR MESSAGE 
RETURN 



PRINT LINE 1 OF ERROR MESSAGE 
REPORT DRIVE ERROR 
PRINT LINE 2 OF ERROR MESSAGE 
PRINT LINE 3 OF ERROR MESSAGE 
INCREMENT TOTAL ERROR COUNT 
PRINT LINE 7 OF ERROR MESSAGE 
OP TURN 



.•PROCESS FORMAT CFER') ERROR 

000400 002152 CKFMT: BIT #81 T8.$RM£R1 (RO) ; 'HCRC SET ON ORIGINAL ERROR ? 

BEO 1S ;8R IF NOT SET 

011132 JMP HCRCER .-REPORT HCRC ERROR 

023216 1$: JSR PC.READDR ;G£T CORRECTED TRACK & SECTOR ADDRSSES 

016012 JSR PC.READHD .'READ HEADER 

000400 070556 BIT #81 T8. GENRE G*RMER1 ; 'HCRC SET WHEN HEADER READ? 

BNE 2$ ;8R IF 'HCRC SET 

012244 JMP FMTER ;N0. ERROR IS 'FMT* ONLY 

020714 2$: JSR PC.SPOTCK ;SEE IF ERROR AT BAD SECTOR ON THE DISK 

BR 5$ ;EXIT IF IT IS 

021046 JSR PC.LINE1 .-PRINT LINE 1 OF ERROR MESSAGE 

071410 DISPLY .EM24 .-HEADER READ ERROR - FMT BIT DROPPED UP 

021126 JSR PC.LINE2 .-PRINT LINE 2 OF ERROR MESSAGE 

021566 JSR PC.LINE3 .-PRINT LINE 3 OF ERROR MESSAGE 

022256 JSR PC.LINE4 .-PRINT LINE 4 OF ERROR MESSAGE 

022470 3$: JSR PC.LINESA .-DISPLAY HEADER 

024604 JSR PCINCSOF .-INCREMENT SOFT ERROR COUNT 

024724 JSR PC.INCTOT .-INCREMENT TOTAL ERROR COUNT 

000020 001326 MOV #81 T4. MASK ;SET ERROR MASK 

000003 001330 MOV #3.RETRY .-RETRY LIMIT 

016104 JSR PC.SRETRY .-RETRY THE COMMAND 

BR 4$ .-RETRY NOT SUCESSFUL 

022626 JSR PC.LINE6C .-PRINT LiNt 6C Of ERROR MESSAGE 

022710 JSR PC.LINE7 .-PRINT LINE 7 OF ERROR MESSAGE 

BR 5$ .-EXIT 



rz RMU80 


RM05/3/ 


2 PERF EXER 


MAIN PRCXiRAM 






AOS 


011452 






A09 


011456 






410 


01146? 


AAA on 7 




411 








412 








41? 








414 


011464 




AOOAOO 


415 


011472 


AA1 AA5 




416 


011474 


AAA1 X7 


01 1 1 7? 

U 1 1 1 JC 


417 








418 


011500 


AAA 777 


0?7?1^ 


419 


011504 


AAZ.777 


A1 A01 P 


420 


011510 


077777 


000^00 


421 


011516 


AA1A17 




422 


011520 


m 77AA 


1010AA 


423 


011524 




1 "SOOOO 


424 


011532 




00? 1 7? 


425 


011540 


nm AAo 




426 


011542 




01 1 A7? 


427 


011546 








01 1 546 




1 01 OAA 
1 u 1 uoo 


428 


011552 


AAAI 77 
UUU 1 J f 


01 P70A 

U 1 c jUO 


429 








430 


011556 


^ f Jf 


0P0714 


431 


011562 






432 


011564 




0P104^ 


433 


011570 


1 yjHH 1 *♦ 


0714S^^ 

\J f 1 H JO 


434 


011574 




Uc 1 1 CO 


435 


011600 


AAA 777 


fi?1 S^^6 


436 


011604 


AA/777 

\J\JH f -Jt 


\JCCCJ\J 


442 


011610 


AAA 777 

l/V/M f Jf 


0?P47n 


443 


011614 


AAA 777 


n?4A04 


444 


011620 




0?47?4 


445 


011624 


A1 P777 


AAA5AA 
\J\J\JC\J\J 


446 


011632 


A1 5777 


AAAAA7 
\J\J\J\J\J J 


447 


011640 


VWH f Jf 


01A104 


448 


011644 


\J\JKJH\JJ 




449 


011646 


\J\JH f Jf 


\JCC\JC\j 


450 


011652 


0047^7 


0??710 


451 


011656 


\J\J\JH\JH 




452 


011660 


004737 




453 


011664 


AAA 777 
\J\JH f Jf 


o??7in 

\JCC f 1 u 


454 


011670 


000 PO 7 




455 








456 








457 








458 


011672 


00^777 


0P104A 


459 


011676 




07377S 

\Jf Cf f J 


460 


011702 


0047^7 


0?1 1?ft 

1 ICO 


461 


01 1 706 


004777 

\J\JH f Jf 


0?1ft14 


462 


011712 


01PA77 


1010AA 
1 U 1 uoo 


463 


011716 




0?P^70 


464 


011722 


004737 


024700 


465 


01 1 726 


004737 




466 


011732 


004737 


023040 


467 


01 1 736 


004737 


015650 


468 


011742 


000207 
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SCO 0078 



4S: 
5$: 



JSR 
JSR 
RTS 



PC. LINE 6D 

PC.LINE7 

PC 



PRINT LINE 6D OF ERROR MESSAGE 
PRINT LINE 7 OF ERROR MESSAGE 
RETURN 



.•PROCESS HEADER COMPARE CHCE') ERROR 
002152 CKHCF: 



1$: 



070356 



101066 
101066 



3$; 



4S: 



001326 
001330 



5$: 
6$: 



BIT 
BEO 
JMP 

JSR 
JSR 
BIT 
BNE 
MOV 
BIC 
CMP 
BEO 
JMP 

MOV 
JMP 

JSR 

BR 

JSR 

DISPLY 

JSR 

JSR 

JSR 

JSR 

JSR 

JSR 

MOV 

MOV 

JSR 

BR 

JSR 

JSR 

BR 

JSR 

JSR 

RTS 



#8IT8.$RMER1(R0) ;HCRC SET ON ORIGINAL ERROR ? 

1$ ;8R IF NOT SET 

HCRCER .-REPORT HEADER CRC ERROR 

PC.READDR ;GET CURRENT SECTOR % TRACK ADDRS 

PC, RE ADHD .-READ HEADER OF CURRENT SECTOR 

*8IT8.GENREG+RMER1 .-'HCRC SET ? 

3$ ;8R IF SET 

CYLNDR.-(SP) .-.-PUSH CYLNDR ON STACK 

#1 50000. CYLNDR ;CLEAR FORMAT, MFG AND USER BITS FROM HEADER 
$RMDC(RO>, CYLNDR ; CORRECT CYLINDER ? 



2$ 

POSER 

(SP) ♦.CYLNDR 
HCEER 

PC.SPOTCK 
6S 

PC.LINE1 

.EM25 

PC,LINE2 

PC,LINE3 

PC,LINE4 

PC,LINE5A 

PCJNCSOF 

PCINCTOT 

*8IT7,MASK 

#3. RE TRY 

PC.SRETRY 

5$ 

PC,LINE6C 

PC,LINE7 

6$ 

PC,LINE6D 

PC,LINE7 

PC 



;8R IF IT IS 
.-REPORT POSITIONING ERROR 

;;POP STACK INTO CYLNDR 
.•REPORT 'HCS' ERROR 



SEE IF ERROR AT BAD SECTOR 
EXIT IF IT IS 

PRINT LINE 1 OF ERROR MESSAGE 
HEADER READ ERROR - 'HCE' SET 
PRINT LINE 2 OF ERROR MESSAGE 
PRINT LINE 3 OF ERROR MESSAGE 
PRINT LINE 4 OF ERROR MESSAGE 
PRINT LINE 5 OF ERROR MESSAGE 
INCREMENT SOFT ERROR COUNT 
INCREMENT TOTAL ERROR COUNT 
SET ERROR MASK 
RETRY LIMIT 
RETRY THE COMM^D 
RETRY NOT SUCESSFUL 
PRINT LINE 6C OF ERROR MESSAGE 
PRINT LINE 7 OF ERROR MESSAGE 
EXIT 

PRINT LINE 6D OF ERROR MESSAGE 
7 OF ERROR MESSAGE 



PRINT LINE 
RETURN 



.-REPORT POSSIBLE POSITIONING ERROR 



POSER: JSR 


PC.LINE1 


DISPLY 


.EM51 


JSR 


PC,LINE2 


JSR 


PC. LINE 3C 


MOV 


(SP)+, CYLNDR 


JSR 


PC. LINE 5A 


JSR 


PC.INCMIS 


JSR 


PCINCTOT 


JSR 


PC.LINE7A 


JSR 


PC.RECALT 


RTS 


PC 



PRINT LINE 1 OF ERROR MESSAGE 

PROGRAM DETECTED POSITIONING ERROR 

PRINT LINE 2 OF ERROR MESSAGE 

PRINT LINE 3C OF ERROR [£SSAGE 

;POP STACK INTO CYLNDR 

PRINT LINE 5A OF THE ERROR MESSAGE 

INCREMENT MISPOSI TIONING COUNT 

INCREMENT TOTAL ERROR COUNT 

PRINT LINE 7A OF ERROR MESSAGE 

RECALIBRATE 

EXIT 



^ZRMueO <M05/?/2 PERF EXER MACRO vO-i.OO 4-APR-81 01:^2:2? PAGE 1 

MA1\ PROGRAM 

469 



470 










.•REPORT 


'OPI ' 


ERROR 


471 
47? 


01 1 744 


004737 


020714 




OPIER: 


JSR 


PC.SPOTCK 


473 


01 1 750 


000207 








RTS 


PC 


474 


011752 


004737 


021046 






JSR 


PC.LINEI 


475 


01 1 756 


104414 


071653 






DISPLY 


,EM31 


476 


01 1 762 


004737 


021126 






JSR 


PC,LINE2 


477 


011766 


004737 


021 566 






JSR 


PC.LINE3 


478 


01 1 772 


004737 


022236 






JSR 


PC.LINE4 


479 


01 1 776 


004737 


024724 






JSR 


PC.INCTOT 


430 


012002 


012737 


020000 


001326 




MOV 


#e]T13.MASK 


481 


012010 


012737 


000005 


001330 


0PIER1 : 


MOV 


#3, RETRY 


482 


012016 


004737 


016104 






JSR 


PCSRETRY 


48? 


012022 


000405 








BR 


1$ 


484 


01 2024 


004737 


022626 






JSR 


PC.LINE6C 


485 


012030 


004737 


022710 






-SR 


PC.LINE7 


486 


012034 


000207 








RTS 


PC 


487 


01 2036 


004737 


022634 




IS: 


JSR 


PC. LINE 6D 


488 


CI 2042 


004737 


022710 






JSR 


PC,LINE7 


489 


012046 


000207 








RTS 


PC 


490 
















491 










.•REPORT 


'DTE* 


ERROR 


492 
















493 


012050 


004737 


020714 




DTEER: 


JSR 


PC.SPOTCK 


494 


012054 


000207 








RTS 


PC 


495 


012056 


004737 


021046 






JSR 


PC.LINEI 


496 


012062 


104414 


071716 






DISPLY 


.EM32 


497 


012066 


000137 


010274 






JMP 


DCKER1 


498 
















499 










.•REPORT 


•PAR" 


ERROR 


500 
















501 


012072 


004737 


021046 




PAPER: 


JSR 


PC.LINEI 


S02 


012076 


104414 


071751 






DISPLY 


.EM33 


503 


012102 


004737 


021126 






JSR 


PC,LINE2 


504 


012106 


004737 


021672 






JSR 


PC. LINE 3E 


505 


012112 


004737 


022236 






JSR 


PC.LINE4 


506 


012116 


004737 


024724 






JSR 


PC.INCTOT 


507 


012122 


012737 


000010 


001 326 




MOV 


*8IT03,MASK 


508 


012130 


012737 


000003 


001330 




MOV 


#3,RETRV 


509 


012136 


004737 


016104 






JSR 


PC.$RETRY 


510 


01214? 


000<.05 








BR 


2$ 


511 


012144 


004737 


022626 






JSR 


PC.LINE6C 


51? 


012150 


004737 


022710 




1$: 


JSR 


PC.LINE7 


513 


012154 


000207 








RTS 


PC 


514 


012156 


004737 


022634 




2$: 


JSR 


PC,LINE6D 


515 


012162 


000772 








BR 


1$ 


516 
















517 










.•REPORT 


•lAE' 


ERROR 


518 
















519 


012164 


004737 


021046 




lAEER: 


JSR 


PC.LINEI 


520 


012170 


104414 


072070 






DISPLY 


.EM35 


521 


012174 


004737 


021126 






JSR 


PC.LINE2 


522 


012200 


004737 


021 760 






JSR 


PC.LINE3F 


523 


012234 


004737 


024724 






JSR 


PC.INCTOT 


524 


012210 


004737 


022710 






JSR 


PC,LINE7 


525 


0122K 


000207 








RTS 


PC 



L _ 



SEE IF ERROR AT BAD SECTOR 
RETURN IF IT IS 
PRINT LINE 1 OF ERROR MESS.^GE 
•OPI' ERROR 

PRINT LINE 2 OF ERROR MESSAGE 

PRINT .INE 3 OF ERROR ?iESSAGE 

PRINT LINE 4 OF ERROR MESSAGE 

INCREMENT TOTAL ERROR COUNT 

ERROR MASK 

RETRY LIMIT 

RETRY THE COMMAND 

RETRY UNSUCESSFUL 

PRINT LINE 6C OF ERROR MESSAGE 

PRINT LINE 7 OF ERROR MESSAGE 

EXIT 

PRINT LINE 6D OF ERROR MESSAGE 
PRINT LINE 7 OF ERROR MESSAGE 
RETURN 



SEE IF ERROR AT BAD SECTOR 
RETURN IF IT IS 
PRINT LINE 1 OF ERROR MESSAGE 
•DTE* ERROR 

FINISH PROCESSING THE 'DTE' ERROR 



PRINT LINE 1 OF ERROR MESSAGE 
REPORT 'PAR' 

PRINT LINE 2 OF ERROR MESSAGE 

PRINT LINE 3E OF ERROR MESSAGE 

PRINT LINE 4 OF ERROR MESSAGE 

INCREMENT TOTAL ERROR C9l#JT 

ERRCVi MASK 

RETRY LIMIT 

RETRY COMMAND 

RETRY UNSUCESSFUL 

RETRY SUCESSFUL 

PRINT LINE 7 OF ERROR MESSAGE 

EXIT 

PRINT LINE.6D OF ERROR MESSAGE 
FINISH ERROR MESSAGE 



PRINT LINE I OF ERROR MESSAGE 
REPORT 'lAE* 

PRINT LINE 2 OF ERROR MESSAGE 
PRINT LINP 3F OF ERROR MESSAGE 
INCREMENT TOTAL ERROR COUNT 
PRINT LINE 7 OF ERROR MESSAGE 
RETURN 



CZRMUBO RM05/^/? PERF EXER 
MAIN PROGRAM 

526 
527 
528 

529 012216 

530 012222 

531 012226 

532 012232 

533 012236 

534 012242 
535 
536 
537 

•^38 012244 

539 012250 

540 012254 

541 012260 

542 012264 

549 012270 

550 012274 

551 C12300 

552 012304 
553 
554 

555 

556 012306 004737 021046 

557 012312 104414 071564 

558 012316 004737 021126 

559 012322 004737 021566 

560 012326 004737 022236 
j67 012332 004737 022470 

568 012336 004737 024724 

569 012342 004737 022710 

570 012346 000207 
571 

572 
573 
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SEQ nog 







.•REPORT 


WLE 


:RROR 


004737 


021046 


WLEER: 


JSR 


PCLINEI 


104414 


072126 




DJSPLV 


.EM36 


004737 


021126 




JSR 


PC,L1N£2 


004737 


024724 




JSR 


PC.JNCTOT 


004737 


022710 




JSR 


PQtLlNtr 


000207 






RTS 


PC 






.'REPORT 


FORMAT 


ERROR 


004737 


021046 


FMTER : 


JSR 


FC.L JNc 1 


104414 


071537 




DISPL" 


,zndt 


004 fir 


Uc 1 1 CO 




1 CO 
Jon 


cr 1 IMP? 


004737 


021566 




JSR 


PC,LINE3 


004737 


022236 




.SR 


PC,LINE4 


004737 


022470 




JSR 


PC. LINE 5A 


004737 


024724 




JSR 


PC.INCTOT 


004737 


022710 




JSR 


PC,LINE7 


000207 






RTS 


PC 



PRJNT LINE 1 OF ERROR MESSAGE 
REPORT "WLE* 

PRINT LINE 2 OF ERROR MESSAGE 
INCREMENT TOTAL ERROR COUNT 
PRINT LINE 7 OF ERROR MESSAGE 
RETURN 



PRINT LINE 1 OF ERROR MESSAGE 
FORMAT ERROR 
PRINT LINE 2 OF 
PRINT LINE 3 OF 
PRINT LINE 4 OF 
PRINT LINE 5A OF 
INCREMENT TOTAL 
PRINT LINE 7 OF 



ERROR MESSAGE 
ERROR MESSAGE 
ERROR MESSAGE 

ERROR MESSAGE 
ERROR COUNT 
ERROR MESSAGE 



.•REPORT HEADER COMPARE ERROR 



HCEER: JSR 


PC.LINE1 


DISPLY 


,EM27 


JSR 


PC.LINE2 


JSR 


PC.LINE3 


JSR 


PC,LINE4 


JSR 


PC. LINE 5A 


JSR 


PC.INCTGT 


JSR 


PC.LINE7 


RTS 


PC 



PRINT LINE 1 Of ERROR MESSAGE 
HEADER COMPARE ERROR 
PRINT LINE 2 OF ERROR MESSAGE 
PRINT LINE 3 OF ERROR MESSAGE 
PRINT LINE 4 OF ERROR MESSAGE 
PRINT LINE 5A OF ERROR MESSAGE 
INCREMENT TOTAL tRROR COUNT 
PRINT LINE 7 OF ERROR MESSAGE 
RETURN 



.•PROCESS CONTROL/INTERFACE TRANSFER ERROR 



574 


012350 


004737 


021046 




TRFER: 


JSR 


575 


012354 


104414 


072241 






DISPL y 


576 


012360 


004/37 


021126 






JSR 


577 


012364 


004737 


021566 






JSR 


578 


012370 


004/37 


022236 






JSR 


579 


012374 


004737 


024724 






JSR 


580 


012400 


032760 


121400 


002146 




BIT 


581 


012406 


001415 








BEO 


582 


012410 


012737 


000003 


001330 




MOV 


583 


012416 


005037 


001 326 






CLR 


584 


012422 


004737 


016104 






JSR 


585 


012426 


000403 








BR 


586 


012430 


004737 


022626 






JSR 


587 


012434 


000402 








8R 


588 


012436 


004737 


022634 




1$: 


JSR 


589 


012442 


004737 


022710 




2%: 


JSR 


590 


012446 


000207 








RTS 


591 














592 










.■PROCESS 'SKI' 


593 














594 


012450 


004737 


021046 




SKIER: 


JSR 



PC.LINEI 

0 

PC,i.INE2 

PC.LINE3 

PC.LINE4 

PC.INCTOT 

#8JT15!BIT13 

2$ 

*3, RETRY 
MASK 

PC.SRETPY 
1$ 

PC.LINE6C 
2S 

PC.LINE6D 
PC,LINE7 

PC 



PC.LINEI 



PRINT LINE 1 OF ERROR MESSAGE 
RH/RM CONTROLLER OR UNI8US TRANSFER ERROR 
PRINT l.JNE 2 Of ERROR MESSAGE 
PRINT LINE 3 Of ERROR MESSAGE 
PRINT LINE 4 Of ERROR MESSAGE 
jINCREMENT TOTAL ERROR COUNT 
I8IT§!8IT8.$RHCS2(R0) ; 'DLT' . 'UPE ' . 'MXF • . 'MDPE' SET 

;8R If NONE SET 
RETRY LIMIT 
CLEAR ERROR MASK 
RETRY THE OPERATION 
RETURN HERE IF RETRY UNSUCESSFUL 
PRINT LINE 6C Of ERROR MESSAGE 
fINISH THE ERROR REPORT 
;PRINT LINE 6D Of ERROR MESSAGE 
PRINT LINE 7 OF ERROR MESSAGE 



.•PRINT I JNE ^ OF ERROR MESSAGE 



MAIN PROGRAM 

59-j 012454 

596 012460 

597 012464 

598 012470 

599 012474 

600 012500 

601 012504 

602 012510 
603 
604 
605 

606 012512 

607 012516 

608 012522 

609 012526 

610 012552 

611 012556 

612 012542 

613 012546 

614 C12554 

615 012562 

616 012566 

617 012570 

618 012574 

619 012600 

620 012602 
012606 
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621 
622 
625 
624 

625 012610 

626 012614 

627 012620 

628 012624 

629 012650 

650 012654 

651 012642 

652 012644 

653 012652 
634 012660 

655 012664 

656 012666 

657 012672 

658 012674 

639 012700 

640 012704 

641 012712 

642 012714 
645 012716 
644 012722 
645 

646 
647 

648 012724 

649 012730 

650 012752 

651 012736 



1044''4 
004737 
004737 
004757 
004757 
004757 
004757 
000207 



004757 
104414 
004757 
004737 
004757 
004757 
004757 
012757 
012757 
004757 
000405 
004757 
004757 
000207 
004737 
000772 



004757 
104414 
004757 
004757 
004757 
052760 
001016 
012737 
012757 
004757 
000405 
004757 
000402 
004737 
004757 
052760 
001001 
000207 
004757 
000207 



105757 
001013 
004757 
104414 



072757 
C21126 
021602 
024724 
024654 
023040 
015650 



021046 
072026 
021126 
021574 
022256 
024724 
015552 
000005 
000040 
016104 

022626 
022710 

022654 



021046 
073040 
021126 
021 566 
024724 
040000 

040000 
000005 
016104 

022626 

022654 
022710 
040000 



015650 



001556 

021046 
072435 



DISPLY 

JSR 

JSR 

JSR 

JSR 

JSR 

JSR 

RTS 



.EM50 

PC.LINE2 

PC, LINE 38 

PC.INCTOT 

PC.INCSKI 

PC.LINE7A 

PC.RECALT 

PC 



' SKI ' ERROR 

PRINT LINE c. OF ERROR MESSAGE 
PRINT LINE 38 OF ERROR MESSAGE 
INCREMENT TOTAl ERROR COU^T 
INCREMENT 'SKI' ERROR COUNT 
PRINT LINE 7A OF ERROR MESSAGE 
RECALIBRATE 



.•REPORT WRITE CLOCs FAILURE CWCF') 



WCFBR: 



001550 
001326 



1$: 
2$: 



JSR 

DISPuY 

JSR 

JSR 

JSR 

-SR 

JSR 

MOV 

MOV 

JSR 

BR 

JSR 

JSR 

RTS 

JSR 

BH 



PC.LINE1 

.EM34 

PC.LINE2 

PC.LINB3A 

PC.LINE4 

PC.INCTOT 

PC.PRTBAD 

*5. RETRY 

/»8JT05,MASK 

PC.SRETRY 

2$ 

PC.LINE6C 

PC.LINE7 

PC 

PC.LINE6D 
1$ 



PRINT LINE 1 OF ERROR MESSAGE 
REPORT WRITE CLOCK FAILURE 
PRINT LINE 2 OF ERROR MESSAGE 
PRINT LlNt 5A OF ERROR MESSAGE 
PRINT LJNE 4 OF ERROR MESSAGE 
INCREMENT TOTAL ERROR COUNT 
SEE IF BAD SECTOR TO BE PRINTED 
RETRY COUNT 
ERROR MASK 
RETRY THE COMMAND 
RETURN HERE IF RETRY UNSUCESSFUL 
PRINT LINE 6C OF ERROR MESSAGE 
PRINT LINE 7 OF ERROR MESSAGE 

PRINT LINE 6D OF ERROR MESSAGE 



.•PROCESS DRIVE UNSAFE ERROR 



002200 

001526 
001550 



002200 



UNSAF : 


JSR 


PCLJNEI 




DISPLY 


,EM60 ; 




JSR 


PC.LINE2 




JSR 


PC,LJNE5 




JSR 


PC, INC TOT 




BIT 


*8JT14,$RMER2(R0) 




BNE 


2$ 




MOV 


*8JTK,MASK 




MOV 


#3,RETRY 




JSR 


PCSRETRY 




BR 


1$ 




JSR 


PC.LINE6C 




BR 


2$ 


1$: 


JSR 


PC,LINE60 


2$- 


JSR 


PC.LINE7 




BIT 


#8JT14.$RMER2(R0) 




BNE 


3$ 




RTS 


PC 


3$: 


JSR 


PC.RECALT 




RTS 


PC 



OF ERROR 
UNSAFE 
OF ERROR 
ERROR 
ERROR 
ALSO 



MESSAGE 



MESSAGE 
MESSAGE 
COUNT 
SPT ? 



PRINT LINE 1 
REPORT DRIVE 
PRINT LINE 2 
PRINT LINE 3 OF 
INCREMENT TOTAL 
;IS 'SKI' 
8R IF YES 

LOAD THE ERROR MASK 
RETRY COUNT 
RETRY THE COMMAND 
RETRY WAS UNSUCESSFUL 
PRINT LINE 6C OF ERROR MESSAGE 
CONTINUE WITH ERROR REPORT 
PRINT LJNE 6D OF ERROR MESSAGE 
PRINT LINE 7 OF ERROR MESSAGE 

.•CHECK 'SKI' AGAIN 
3R IF SET 
RETURN 
RECALIBRATE 
RETURN 



.•REPORT AN 'UNKNOWN* DATA PATTERN 



NOMTCH: TSTB FRSTER 

BNE 1$ 

JSR PC. LINE' 

DISPLY .EM43 



FIRST ERROR IN THE SECTOR ? 
BR IF NOT OR IF PROCESSING 'DCKER' 
TYPE LINE 1 OF ERROR MESSAGE 
'CAN'T MATCH DATA WITH PATTERN' 
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SEO 008; 



652 
653 
654 
655 
656 
657 
o58 
666 



66/ 
668 
669 
670 
671 
672 
673 
67A 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 



012742 
012746 
012752 
012756 
012760 
012764 
012770 
012774 
012776 
013002 
0130C6 
013010 
013014 
013020 
01 3022 
013026 
01 3032 
01 3034 
013040 
0^3044 
013046 
013052 
013056 
013060 
013064 
013070 
013072 
013076 
013102 
013104 
013110 
0131U 
013120 
013126 
013134 
013136 
013142 
013150 
013152 
013160 
013166 
013174 



013176 
013204 
013206 
013214 
013216 
013222 
013224 
01 3230 
013232 
013236 
013242 
013246 



004737 

004737 

004737 

000404 

104414 

104414 

104«,14 

010146 

004737 

104414 

012146 

004737 

104414 

010146 

004737 

104414 

012146 

004737 

104414 

010146 

004737 

104414 

012146 

004737 

104414 

010146 

004737 

104414 

012146 

004737 

104414 

062701 

162737 

132760 

001405 

062701 

162737 

005002 

112737 

112737 

0T3737 

000207 



032760 
001012 
032760 
001006 
005760 
001003 
005760 
001416 
004737 
104414 
004737 
004737 



021126 
021574 
022236 

072435 
C01203 
075060 

023144 
075554 

023144 
001203 

023144 
075554 

023144 
001203 

023144 
075554 

023144 
001 203 

023144 
0755b4 

023144 
001203 
000770 
000400 
000001 

000004 
000002 

000001 
1 77777 
001446 



060000 

177400 

002152 

002200 

021046 
072502 
021126 
021 566 



1$: 
2$: 



001370 
000024 



001370 

001356 
001357 
001 366 



002136 
002146 



3S: 



JSR 
JSR 
JSR 
BR 

OISPLY 

DISPLY 

DJSPLY 

MOV 

JSR 

DISPLY 

MOV 

JSR 

DISPlY 

MOV 

JSR 

DISPLY 

MOV 

JS« 

DISPLY 

MOV 

JSR 

DISPLY 

MOV 

JSR 

DISPLY 

MOV 

JSR 

DISPLV 
MOV 

JSR 

DISPLY 

ADD 

SUB 

BITS 

BEG 

ADD 

SUB 

CLR 

M0V8 

M0V8 

MOV 

RTS 



PC.LINE2 
PC. LINE 3A 
PC.LINE4 
2S 

.EM43 

.$CRLF 

.LIN9I 

fti .-(sp; 

PCLINOCT 

.8..NKS2 

(R1)*.-(SP) 

PC.LINOCT 

.SCRLf 

R1,-(SP; 

PC.LINOCT 

.8LNKS2 

(R1)*.-(SP) 

PC.LINOCT 

.SCRLF 

R1.-{SP) 

PC.LINOCT 

.8LNKS2 

{R1)*,-(SP) 

PC.LINOCT 

.SCPLF 

Rl.-(SP) 

PC.LINOCT 

.8LNKS2 

(R1)*,-(SP) 

PC.LINOCT 

.SCRLF 

#<252.»2.>.R1 
*256..C«CNT 
#1.tCOOE(R0) 
3$ 

#«.R1 
#2,CHCNT 

R2 

#1,FRSTER 
#-l,FRSTER*l 
CMPLMT, LIMIT 
PC 



1 



PRINT LINE 2 OF ERROR MESSAGE 
PRINT LINE 3A OF ERROR MESSAGE 
PRINT LINE 4 OF ERROR MESSAGE 
CONTIINfUE PROCESSING ERROR 
'CAN'T MATCH DATA WITH PATTERN' 
CR-LF 

HEADER FOR DATA PRINTOUT 
ADDRESS OF WORD 1 
TYPE WORD 1 
TYPE 2 BLANKS 
ADDRESS OF WORD 
TYPE WORD 1 
CR-LF 

ADDRESS OF WORD 2 
TYPE WORD 2 
TYPE 2 BLANKS 
ADDRESS OF WORD 2 
TYPE WORD 2 
CR-LF 

ADDRESS OF WORD 3 
TYPE WORD 3 
TYPE 2 BLANKS 
ADDRESS OF WORD 3 
TYPE WORD 3 
CR-LF 

ADDRESS OF WORD 4 
TYPE WORD 4 
TYPE 2 BLANKS 
ADDRESS OF WORD 4 
TYPE WORD 4 
CR-LF 

INCREMENT BUFFER POINTER 
ADJUST WORD COUNT FOR MATCH 
HEADER OPERATION INVOLVED ^ 
NO 

ADJUST BUFFER ADDRESS 
ADJUST WORD COlWT 

CLEAR 'WORDS TO COMPARE' COlWT IN R2 

SET 'NOT FIRST ERROR' INDICATOR 

SET ERROR FOUND INDICATOR 

RESET THE COMPARE ERROR TYPEOUT LIMF 

RETURN 



.-CHECK ERROR BITS IN THE RH/RM REGISTERS 



CKERR: BIT #60000. $R«CS1 (RO) 

8NE 1$ :8R 

BIT #1 77400, SRMCS2{R0) 

BNE IS 

TST SRMFRKRO) 

BNE 1$ 

TST $RMER2(R0) 

BEQ 2S 

IS: JSR PC. LINE! 

DISPLY ,EM44 

JSR ?C,LINE2 

JSR PC.LINE3 



;SEE IF 'TRE' 
IT EITHER SET 

.SEE IF ERROR 
8R IF ANY SET 
ANY BITS SET IN ERl 
6R IF ANY SET 
ANY BITS SET IN ER2 
8R IF NONE SET 
PRINT LINE 1 OF 
ERROR BITS SET. 
PRINT LINE 2 OF 
PRINT LINE 3 OF 



OR 'MCPE* SET 
BITS IN CS2 SET 



ERROR MESSAGE 
BUT 'SC OR 'TRE' 
ERROR MESSAGE 
ERROR MESSAGE 



NOT SET 



fZR'lUBO RM05/^/2 PtRF EXER 
NIAIN PROGRAM 



"lACRO VO-i.OO <;-APR-81 11:42 



F 

PAGE 



IP- 



IP 



693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
71 T 
712 
713 
71 A 



013252 
013256 
013262 
013266 



013270 
013274 
013276 
013302 
013304 
013310 
013314 
013316 
013322 
01 3326 
013332 
01 3536 
013342 
013346 
013352 



004737 
004737 
004737 
000207 



005760 
00 1 010 
016046 
006316 
066016 
022660 
001416 
004737 
104414 
004737 
004737 
004737 
004737 
004737 
000207 



022236 
024724 
022710 



002140 

000020 

000006 
002142 

021046 
072310 
021126 
021624 
022236 
024724 
022710 



SEO 008'. 



2$: 



JSR 
JSR 
JSR 
RTS 



PC.LINEA 
PCJNCTOT 
PC.LINE7 
PC 



PRINT LINE 4 or 
INCREMENT TOTAL 
PRINT LiNt 7 OF 
RE TURN 



ERROR MESSAGE 
ERROR lOuNT 
ERROR MESSAGE 



.•CHECK BUS ADDRESS REGISTER i WORD COUNT REGISTER 
CK8US: 



2$: 



TST 


$RMWL(RO) 


CHECK WORD COUNT 


BNE 


1 » . 


oH IP NUT ZcNU 


MOV 




LJ^Dr^ i cm/itu 
wUni; LCniuin 


ASL 


(SP) 


CHANGE INTO BYTE COUNT 


ADD 


$8UF(R0),(SP) 


ADD THE STARTING LOCATION 


CMP 


(SP)*,$RM8A(R0) , 


BUFFER ADDRESS PROPER ' 


BEQ 


2$ 


BR IF OK 


JSR 


PC.LINEI 


•PRINT LINE 1 OF ERROR MESSAGE 


DJSPLV 


.EM41 


•BUS ADDRESS OR WORD COUNT INCORRECT 


JSR 


PC,L]NE2 


•PRINT LINE 2 OF ERROR MESSAGE 


.SR 


PC. LINE 3D 


;PRINT LINE 3D OF ERROR MESSAGE 


JSR 


PC,LINE4 


.•PRINT LINE 4 OF ERROR MESSAGE 


JSR 


PC.INCTOT 


.•INCREMENT TOTAL ERROR COUNT 


JSR 


PC.LINE7 


;PRINT LINE 7 OF ERROR MESSAGE 


RTS 


PC 





I 



«1A:R0 V04.00 4-APR-81 01 



G 7 

r*?:?? PAGE 13 



SCO 0084 



! 

5 
6 
7 
8 
9 
'0 
11 

12 
13 
"4 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
2"^ 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
A2 
43 
4A 
45 
A6 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



013354 
013362 
01 3364 
013366 

013372 
013372 
013376 
01 3402 
013410 
013416 
013420 
013422 
013430 
01 34 36 
013444 
013452 
013456 
01 3464 
013470 
013474 
013502 
013504 
013510 
013514 
013516 
013522 
0^3530 
013536 



013540 
013544 
013550 
013552 
013554 
01 3560 
01 3562 
CI 3564 
013570 
013574 
013576 

013602 
013606 
013612 



013614 
013620 
013624 
013626 
CI 3632 



1 32760 
001001 
000207 
005037 



012705 
052711 
022521 
001402 
004737 
022521 
001402 
004737 
162702 
003007 
0001 37 

005237 
004737 
000207 



004737 
004737 
000403 
004737 
000456 



000004 
001356 



000024 



.•COMPARE THE BUFFER 
CMPAR 



1$: 

CMPARD : 



BITS #4.$CODF(R0) 

BNE IS 

RTS PC 

CLR FRSTER 



SEE IF READ C0(WJD 
BR IF IT IS 
RE TURN 

CLEAR 'FIRST ERROR' INDiCATOR 



005037 


001 364 




U: 


f 1 O 

CLR 


cor TO 

ERCTR , 


CLEAR THE ERROR COUNTrR 


0 1 6001 


000006 






nOV 


• Q ir / DA \ D 1 


oUrrER ADDRESS 


rti Z.rtT7 

C16037 


C0Ou2U 


AA1 "7 7 A 






Cl lor\l ^DAl rMTklT 

JWRDL VRU^ , CniNl , 


WORD COUNT TO WORKiNG LOCATION 


06603/^ 


AA "5 1 / A 

00^ I4U 


AAi 2 7A 
001 3/U 




ADD 




TAI rill ATC ArTiiAl IJTIOfSC TDAAlCCCDCf\ 

LALLULAIt AlIu'*L WORDS IRAIMSftRtD 


001 001 








oNc 


OC 
d» 












OTC 




CVTT_.fun IJAOr\C VCCDCf\ 

tAil~"fyiU WORDS XrtKtP 


A1 ^AT*7 


AAAAl O 


AA1 770 


oc • 

d*. 


IMA\i 


»LtL ,C~LtL , 


■ ri/l flkll\CD AftftDCCC IjnD^ f Ikl^ 1 Ar ATT AAi 

ITLilMUcK ADDRESS WUNKiNu LOLAIiOni 


AC 0777 


1 CAAAA 


,-iA1 770 
Am 77Z. 




O f c 
Did 


" I jUUUU, tHL T L , 


>CCT tKC liCCO AAin fMT BITC 

SCI rlru, USER AND rni olIS 


A1 ^1^*77 


UUUUl U 




muv 




SCUiUR If ln«LR ADDRESSES lU WURivJIVu LUL'^li 


01 3737 
005237 




001 366 

\J\J 1 jyjyj 




f Iw V 


CMPLMT LIMIT 


•DISPLAY LIMIT 


001366 






INC 


LIMIT 


■CONVERT PARAMETER INTO LIMIT VALUE 
CLEAR THE 'ZERO'S' INDICATOR 


012737 


M7777 


001354 


CMSTR: 


MOV 


*-1.ZR01ND 


005037 


001360 






CLR 


SAVER1 


■CLEAR THE R1 SAVE WORD 


005037 


001 362 






CLR 


SAVERS 


CLEAR THE R5 SAVE WORD 


0237t)0 


001370 


000022 




CMP 


CMCNT.$SSEC(R0) 


•IS BUFFER SIZE GREATER THAN ONE SECTOR ? 


101005 








BHI 


1$ 


• BR IF IT IS 


013702 


001 370 






MOV 


CMCNT,R2 


;LESS THAN, USE REMAINING BUFFER 


005037 


001370 






CLR 


CMCNT 


;SET COUNTER TO 0 


000405 








BR 


2$ 




016002 


000022 




1$: 


MOV 


$SSEC(R0),R2 


.•COMPARE SECTOR 


166037 


000022 


001370 




SUB 


$SSEC(RO), CMCNT 


.•DECREMENT WORD COUNT 


126027 


000024 


000005 


2$: 


cw« 


SCOPE (RO) ,#5 


;READ HEADER ft DATA? 


001026 








BNE 


CMDAT 


;8R IF NOT 



COMPARE HEADER WORDS 



001372 
1 50000 



013602 



013602 
000002 

014166 

001364 
014174 



027346 
014516 

012^24 



CMHED: 



1$: 



2$: 



MOV 
BIS 
CMP 
BEO 
JSR 
CMP 
BEO 
JSR 

sue 

BGT 
JMP 



CMSTR2: INC 
JSR 
RTS 



#CMCYL.R5 
#1 50000. (R1) 
(R5)-^,(R1)* 
1$ 

PC.CMSTR2 

(R5)*.(R1)* 

2$ 

PC.CMSTR2 
#2.R2 
CMDAT 
CMPRX 

ERCTR 
PC.CMPRT 

PC 



.•COMPARE DATA FIELD 



CMDAT; 



JSR 

JSR 

BR 

JSR 

BR 



PC.GE ILMT 
PC .MATCH 
1$ 

PC.NOMTCH 
7$ 



ADDRESS OF COMPARING CYLINDER 

SET BITS INCASE PAD SECTOR ENCOUNTER 

CHECK CYLINDER 

BR IF COMPARE OK 

REPORT ERRCW 

COMPARE SECTOR/TRACK 

BR IF EQ 

REPORT ERROR 

SUBTRACT HEADER LENGTH FROM SIZE 
BR IF NOT FINISHED 
COMPARE THE DATA PORTION 

INCREMENT THE ERROR CaWT 
REPORT THE COMPARISON ERROR 
CHECK THE REST OF THE HEADCR 



GET ADDRESS LIMITS 
FIND THE PATTERN 
FOUND A PA' TERN 

RETURN HERE IF NO MATCH WFH PA" TERN MADE 
BYPASS COMPARE WQUTI-^E 



""IAIN DROGRAM 



HACRO VOA.OO A-APR-81 



58 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
o9 

n 

72 
73 
74 
■'5 
■^6 
77 
78 
79 
80 
81 
82 
8^ 
8A 
85 
86 
87 
88 
89 
90 
91 
92 
93 
9A 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 

no 
111 

112 
M3 
1U 



013634 
013636 
013642 
013644 
013646 
013652 
01 3654 
013662 
013664 
013670 
013672 
013674 
013676 
013700 
013702 
013706 
013710 
013716 
013722 
CI 3726 
01 3730 
01373< 
013736 
013742 
013/46 
013752 
013754 
013760 
013762 
013766 
013770 
013776 
014000 
014006 
014010 
014014 
014020 
014022 
014030 
014032 
014036 
014040 
014044 
014052 
014054 
014060 
014064 
014072 
014074 
014100 
014104 
014110 
014114 
014120 
014122 



011405 

012703 

022125 

001016 

005737 

001406 

032777 

001402 

004737 

005302 

003436 

005303 

001361 

000755 

005761 

001410 

012737 

005237 

004737 

000760 

105737 

100407 

005037 

010137 

C10537 

000746 

005737 

001743 

004737 

000740 

023727 

005473 

126027 

001414 

013702 

020227 

003462 

162737 

003671 

012702 

000666 

105237 

123737 

101424 

105037 

105237 

123737 

101414 

105037 

005237 

013746 

042716 

022637 

101401 

000421 



C00020 
001 364 

000010 165272 
014174 



177776 

^77777 001354 

001364 

014174 

001356 

001354 
001360 
001362 

001354 

014174 

001370 000003 

000024 000005 

001 370 
000003 



1$: 

21: 



3$: 



4S: 



5$: 



6$: 



7$: 



8S: 



000400 
000400 



001 570 



001574 

001574 001424 

001374 
001 575 

001375 001426 

001375 
001372 
001372 
1 50000 
001422 



9$: 



OKI 24 012705 001572 



10$: 



MOV 

MOV 

CMP 

BNE 

TST 

BEQ 

BIT 

BEO 

JSR 

DEC 

BLE 

DEC 

BNE 

BR 

'ST 

BEQ 

MOV 

INC 

JSR 

BR 

TST8 

BMJ 

CLR 

MOV 

MOV 

BR 

TST 

BEQ 

JSR 

BR 

CMP 

BLE 

CMP8 

BEO 

MOV 

CMP 

BLE 

SUB 

BLE 

MOV 

BR 

INC8 

CMP8 

BLOS 

CLR8 

INC8 

CMP8 

BLOS 

CLR8 

INC 

MOV 

BJC 

CMP 

BLOS 

BR 

MOV 
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«1A 97 

• 1 D. ,f< J , 


d7 tc dattccm one rnmu^CD 


f D1 > 4 t D<i 1 * • 
\n \ 1 * , \Hj 1 * , 


rrUMDABP DllFFPO UTTU DATTPBIk. 


AC 


QD (C lUDT PDilAI 
I3n 1 r IMU 1 C UUML 


CDTTD 


pponoc hPTPCTPr* "> 




np TP MD pppnpc 




CUI T 7 CP T ■J 


TC 


PB TP MDT CP T 


or rMDOT 


rt T CPl AV Tup UDPn 


05 

"C . 


r)PruPMPMT cr7P rniiMT 


7« 

' • > 


PP UUPKl AT PMn 
On Writ Ml n\ t"IU 


"J 1 


rtPTPPMPMT PATT PDC mi IMT 

l/tLr^t"tf*l n/^ 1 1 rUO \^\jyjfMi 




RP TP MOT AT PMD OF PATT 


1 c 


PP^TART THP PATTPRl^ 

>t c 3 1 Mn 1 1 nc r 1 1 c ni\ 


c V n 1 y J 


rC MI^rOMPARFD rHAPATTPR-O 




BR IF YES 




^PT M0N-'7PR0 MI^rOMPARPD INDrATOR 


rpr TP 


• TMrRFMFMT IMF FftROR rOllNTFr) 
inptnc^c*! 1 nt t»»nt/" tuuni'tri 


or TMDDT 


■PFPORT FPPOP 


T* 

J* 


•rOMTINIlF rOMPARF 

tUnl r i MlLrt ttJ»"'^nt 


r no • cn t 


■F IRCT PRR0R7 




.op rp MO''' 
on i r niw i 




•^FT THF 7FR0 INDfTATOR 
f OC • 1 '•t L t nt; 1 fni/ i 1 t/n 


pi CAVPRI 


'^AVP r(iRRPNT R1 




• (^Ak/F r(iRRFNT RS 


3$ 


■rONTINlJF rOMPARF 




•ANY MI^rOMPARIljfJS MOT 7FR0S 




•AR TP NONF-AI 1 FRR0R^-7FR0 


pr rMPPT 


■RFPORT FRRDR 


J9 


• rOMT \Nt IF rOMPAR IN(; 




•1 A^T 3 UORDS 




' YES 




•RFAD HFAD AMD DATA 








'^FT rCNISITFR - RFMAIN BlJFFFR 1 FNGTH 


R7 U'K 


•1 A<;T 3 UORD^ ' 

. t " O 1 J Wf ** I/O 




■ YES.EXI T 


ir?5A rnrNT 


•GRFATFR THAN A SECTOR 




■NO RPTIIRN TO rOMPARF 1 OOP 


^CJyj* #— c 


•CFT rOllNTFR ="iFrTOR SI'F 




•RPTIJRN TO rOMPARF t OOP 




' rNrRFMFNT COUNTER 


rM<:Fr ^Fri mt 


■MAX SECTOR # 


1 \J9 


'NO 




•RFCFT SFTTRS * 
. nc Ot 1 ot t 1 v./n f 




■ rNrRFMFNT TRACK # 


TM > If TRKI MT 


•MAX TRACK # 


1 \J9 


'NO 


TM 1 P^ 


'RESET TRACK # 


CMCVL 


; INCREMENT CYLINDER NUMBER 


CMCyL,-(SP) 


;GET COMPARING CYLINDER 


50000. (SP) 


.'SAVE ONLY THE CYLINDER BITS 


(SP)*.CYLIMT 


.•LAST CYLINDER ? 


10$ 


;N0 


CMPRX 


.■NORMAL RE TURN. NOT WRAP AROUND 


#CMCYL.R5 


.'ADDRESS OF COMPARING CYlJNDER 



'■/RWUBO RM05/5/r PERf EXER 
mm PROGRAM 



MACRO V04.00 



r? 

118 
119 
120 
121 
'22 
^25 
V4 
125 
^26 
'27 
128 
'29 
130 
131 
132 
133 
13A 
135 
136 
137 
138 



139 
KO 
K1 
1A2 
U3 
14^ 
U5 

146 

147 

-48 

149 

150 

151 

152 

153 

154 

155 

156 

-57 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 



014130 
014134 
014136 
014140 
014144 
014146 
014150 
014154 
014162 
014164 

014166 
014172 



014174 
014200 
014202 
CI 4206 
014210 
014214 
014220 
014222 
014222 
014224 
014226 
014232 
014236 
014242 
014246 
014252 
014256 
014260 
014262 
014266 

014270 
014274 
014276 
014300 
014304 
014310 
014314 
014320 
014324 
014326 
014332 
014336 
014542 
014350 

014352 
014356 
014360 
014364 
014366 



052711 
022521 
001402 
004737 
022521 
001402 
004737 
162737 
003401 
000711 



005737 
001010 
105737 
100402 
004737 
004737 
000422 

010146 
010546 
013701 
013705 
004737 
004737 
005037 
005037 
012605 
012601 
004737 
000207 

105737 
100425 
001013 
004737 
104414 
004737 
004737 
004737 
000404 
104414 
104414 
104414 
012737 
000207 

005737 
001403 
005337 
001005 
Q52777 



150000 



01 5602 



01 3602 
000002 



004737 014450 
000207 



001 360 

001356 

014270 
014352 



001360 
001 362 
014270 
014352 
001 360 
001362 



014352 



001356 



021046 
072354 
021126 
021574 
022236 

074755 
001203 
075004 
1 77777 



001370 



11$: 
12»: 



I / 

4-APR-81 01:42:23 PAGE 1: 



BIS #1 50000. (Rl) 

CMP (R5)*.(R1)* 

BEQ 11$ 

JSR PC-CMSTR2 

CMP (R5)*.(R1)* 

BEQ 12$ 

JSR PC.CMS1R2 

SUB #2.CMCN1 

BLE CMPRX 

BR 8$ 



001356 



001366 
001366 

000200 164560 



CMPRX : 


JSR 


PC.ENDCMP 




RTS 


PC 


; TYPE 


DATA COMPARE ERRORS 


CMPRT : 


TST 


SAVERI 




BNE 


2$ 




TST8 


FRSTER 




BMi 


1$ 




JSR 


PC, 4$ 


1$: 


JSR 


PC, 8$ 




BR 


3$ 


2$: 








MOV 


RI.-(SP) 




MOV 


R5,-(SP) 




MOV 


SAVER1 ,R1 




MOV 


SAVERS, R5 




JSR 


PC. 4$ 




JSR 


PC. 8$ 




CLR 


SAVERI 




CLR 


SAVERS 




MOV 


(SP)*,R5 




MOV 


(SP)*.R1 




JSR 


PC, 8$ 


3$: 


RTS 


PC 


4$: 


TST8 


FRSTER 




BMi 


7$ 




BNE 


5$ 




JSR 


PC.LINE1 




OJSPLY 


,EM42 




JSR 


PC.LINE2 




JSR 


PC. LINE 3A 




JSR 


PC,LINE4 




BR 


6$ 


5$: 


DJSPLY 


.LiN98 




DJSPLY 


,$CRLF 


6$: 


DISPLY 


.LIN9H 




MOV 


<f-l. FRSTER 


7$: 


RTS 


PC 


8$: 


TST 


LIMIT 




BEQ 


9$ 




DEC 


LIMIT 




BNE 


10$ 


9$: 


BIT 


#SW07.aSWR 



SET BITS INCASE BAD SECTOR ENCOUNTER 
COMPARE 1ST HEADER WORD 
MATCH 
NOT MATCH 

SECOND WORD OF HEADER 

MATCH 

NOT MATCH 

ADJUST WORD COUNT 

COMPARE IS DONE 

RETURN TO COMPARE LOOP 

PRINT LAST LiNE IF ERRORS 



.•PRINT SAVED VALUES ? 
;8R IF YES 
.•FIRST ERROR? 
;8R IF NOT 

.-PRINT INITIAL MESSAGE INFO 
.-PRINT REMAINDER OF MESSAGE 
.-EXIT 

;;PUSH Rl ON STACK 

;;PUSH R5 ON STACK 

.-DISPLAY SAVED Rl 

.-DISPLAY SAVED R5 

.-PRINT INITIAL MESSAGE INFO 

; PR I NT SAVED VALU5S 

.-CLEAR SAVED REGISTER INDICATORS 

.-CLEAR THE OTHER ONE 

;.-POP STACK INTO R5 

;.-POP STACK INTO Rl 

.PRINT REMAINDER OF MESSAGE 

.•RETURN 

.FIRST ERROR ? 
;8R IF NOT 

;8R IF FIRST ERROR AND PROCESSING 'DCK* ERROR 

.-PRINT LINE 1 OF ERROR MESSAGE 

.DATA COMPARE ERROR 

.-PRINT LINE 2 OF ERROR MESSAGE 

.-PRINT LINE 3A OF ERROR MESSAGE 

.-PRINT LINE 4 OF ERROR MESSAGE 

;G0 TO TYPE HEADER 

.-HEADER MESSAGE OF PROCESSING 'DCK* t«ROR 
; CR-LF 

.-DISPLAY HEADER 

.-SET FIRST ERROR FLAG 

.-RETURN 

.-TYPEOUT LIMIT REACHED ? 

;8R IF IT HAS 

.-DECREMENT LIMIT COUNTER 

.-8R IF NOT AT LIMIT 

.•PRINT ALL DATA COMPARE ERRORS ? 



("ZRWUBO PERF EXER 

f^AlK PROGRAM 



169 0U37A 

170 0K376 
171 

172 OKAOO 

173 0KA02 

174 0KA06 

175 0KA12 

176 0UA16 

177 0HA22 

178 0H426 

179 0K432 
130 014436 

181 014442 

182 014446 
183 

18A 
^85 

136 014450 

187 014454 

188 014456 

189 014462 

190 014464 

191 014470 

192 014474 

193 014500 

194 014504 

195 014510 

196 014514 
197 

198 
199 
200 
201 
208 
209 
210 
211 
212 
213 

214 014516 

219 014520 

220 014524 

221 014526 

222 014530 

223 014532 

224 014536 

225 014540 

226 014544 

227 014546 

228 014552 

229 014556 

230 01456C 

231 014562 

232 014564 

233 014566 
254 014572 
235 014574 



001001 
000207 

010146 
162716 
004737 
104414 
016546 
004737 
104414 
016146 
004737 
104414 
000207 



010146 
013704 
001402 
006304 
000416 
012704 
011601 
162704 
001413 
016405 
012703 
022125 
001366 
005303 
001374 
062704 
000403 
062766 



000002 
023144 

07555*. 
177776 
023144 
075554 
177776 
023144 
001203 



^lACRO V04.00 



10$: 



J 7 

4-APR-81 01:42:£'3 PAGE 13-3 



001460 

000044 

000002 

002426 
000004 

002426 
000002 



BNE 
RTS 

MOV 
SUB 
JSR 

DISPLY 

MOV 

JSR 

DISPLY 

MOV 

JSR 

DJSPlY 
RTS 



10$ 

PC 

R1 .-(SP) 

*2, (SP) 

PC.LiNOCT 

.8LNKS2 

-2(R5).-(SP) 

PC.LINOCT 

.8..NKS2 

-2(R1),-{SP) 

PC.LINOCT 

.$CRLF 

PC 



8R IF yES 
RE TURN 

8UFFER ADDRESS 

ADJUST ADDRESS 

TYPE IT 

TYPE 2 BLANKS 

PUT GOOD DATA ON 

TYPE IT 

TYPE 2 BLANKS 

8AD DATA 

TYPE IT 

CR-LF 

RETURN 



THE STACK 



.•LAST LINE OF COMPARE ERROR REPORTING 



105737 


001357 


ENDCMP: 


TST8 


FRSTER+1 


ANY COMPARE ERRORS FOUND ? 


001417 






BEQ 


2$ 


8R IF NOT 


005737 


001364 




TST 


ERCTR 


SEE HOW MANY ERRORS 

m IF ONLY CAN'T MATCH PATTERN 

•NLTBER OF ERRORS=' 


001410 




BEQ 


1$ 


104414 


075077 




DISPLY 


.LIN9E 


013746 


001364 




MOV 


ERCTR, -(SP) 


■NUMBER OF ERRORS 


004737 


023176 




JSR 


PC.LINDEC 


■TYPE IT 


104414 


001203 




DISPLY 


.$CRLF 


•CR-LF 


004737 


024724 


1$: 


JSR 


PC.INCTOT 


■INCREMENT TOTAL ERROR COUNT 


004737 


022710 




JSR 


PC.LINE7 


;PRINT LINE 7 OF ERROR MESSAGE 


000207 




2$: 


RTS 


PC 


; RE TURN 



ROUTINE TO MATCH THE DATA WITH A PATTERN, ONLY WHEN LOCATION 'PATTERN' 
IS EQUAL TO 0 (RANDON DATA PATTERN MODE). OTHERWISE. THIS ROUTINE WILL 
RETURN THE ADDRESS OF THE EXPECTED FIXED DATA PATTERN IN R4. 

CALL : 

BUFFER ADDRESS 



MATCH: 



1$: 
2$: 



3$: 



4$: 



000002 5$: 



MOV 


#8UFFER,R1 


JSR 


PC, MATCH 


RETURNI 




RETURN2 




MOV 


R1,-(SP) 


MOV 


PATTERN, R4 


BEQ 


IS 


ASL 


R4 


BR 


4$ 


MOV 


#44, R4 


MOV 


(SP),R1 


SUB 


/lf2.RA 


BEQ 


5$ 


MOV 


STNDAT(R4;,R5 


MOV 


*4.R3 


CMP 


(R1)*,(R5)* 


BNE 


2$ 


DEC 


R3 


BNE 


3$ 


ADD 


#STNDAT.R4 


BR 


6$ 


ADD 


#2.2(SP) 



PATTERN ADDRESS IN R4 
COULDN'T MATCH PATTERN 

SAVE R1 0^J THE STACK 

WAS RANDOM PATTERN ENABLED ? 

BR IF YES 

• 2 

USE KNOWN PATTERN 

PATTERN TABLE INDEX 

RELOAD R1 

DECREMENT INDEX 

BR IF PATTERN NOT MATCH 

ADDRESS OF PATTERN ADDRESS 

NUMBER OF LOCATIONS TO CHECK 

COMPARE THE BUFFER AGAINST THE PATTERN 

8R IF NOT EQUAL, TRY NEXT PATTERN 

FINISHED CHECKING? 

8R IF NOT FINISHED 

MAKE PATTERN ADDRESS ABSOLUTE 

EXIT 

INCREMENT RETURN ADDRESS 



:ZRMueO RM05/?/^ PERF EXER MACRO VOA.OO A-APR-81 

MAIN PROGRAM 



?56 


014602 


012601 






6$: 


MOV 


237 


01460'-. 


000207 








RTS 


?58 














239 










.-USE 


ECC TO COf 


240 














241 


014606 


016037 


002142 


001400 


ECC: 


MOV 


242 


0^4614 


016046 


002140 






MOV 


245 


014620 


066016 


000020 






ADD 


244 


014624 


001002 








BNE 


245 


014626 


005726 








TST 


246 


014630 


000207 








RTS 


2h7 


014632 


005046 






1$: 


CLR 


248 


014634 


016046 


000022 






MOV 


249 


014640 


004737 


031710 






JSR 


250 


014644 


005716 








TST 


251 


014646 


001413 








BEQ 


252 


014650 


006316 








ASL 


253 


014652 


161637 


001400 






SUB 


254 


014656 


122760 


000005 


000024 




CMPB 


255 


01 4664 
014666 


001007 








BNE 


256 


062737 


000004 


001400 




ADD 


257 


014674 


000403 








BR 


258 


014676 


162737 


001000 


001400 


2$: 


SUB 


259 


014704 


062706 


000004 




3$: 


ADD 


260 


014710 


016037 


002202 


001376 




MOV 


261 


014716 


005337 


001 376 
001 376 






DEC 


262 


014722 


013737 


001406 




MOV 


263 


014730 


042737 


1 77760 


001 376 




BIG 


264 


014736 


042737 


000017 


001406 




BIG 


265 


014744 


006237 


001406 






ASR 


266 


014750 


006237 


001406 






ASR 


267 


014754 


006237 


001406 






ASR 


268 


014760 


104414 


075154 






DISPLV 


269 


014764 


013746 


001406 






MOV 


270 


014770 


006216 








ASR 


271 


014772 


004737 


033130 






JSR 


272 


014776 


004737 


032234 






JSR 


273 


015002 


104414 


075210 






DISPLY 


274 


015006 


063737 


001400 


001406 




ADD 


275 


015014 


026037 


002142 


001406 




CW* 


276 


015022 


101002 








BHI 


277 


01 5024 


000137 


015340 






JW* 


278 














279 


01 5030 


016037 


002204 


001402 


4S: 


MOV 


280 


015036 


005037 


001404 






CLR 


281 


015042 


005337 


001376 




5$: 


DEC 


282 


01 5046 


002405 








BLT 


283 


015050 


006337 


001402 






ASL 


284 


015054 


006137 


001404 






ROL 


?85 


015060 


000770 








BR 


286 














287 


015062 


017737 


164320 


001412 


6f: 


MOV 


288 


015070 


013746 


001402 






MOV 


289 


015074 


047716 


164306 






BIC 


P90 


015100 


043777 


001402 


164300 




BIC 


291 


015106 


052677 


164274 






BJS 



K 7 
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SEO 0088 



(SP)*,R1 
PC 



.'RESTORE Rl 
.•RETURN 



JRECT THE DATA ERROR 



$RM8A(R0).ECSEC 
$RMWC(RO).-(SP) 
$WRDL(RO),(SP) 
1$ 

PC 

-(SP) 

$SSEC(RO),-(SP) 
PC,$DIV 

(SP) 
2$ 

(SP) 

(SP),ECSEC 

*5.$C0DE(R0) 

3$ 

*4.ECSEC 
3$ 

#256.'»2.ECSEC 
*4.SP 

$RMEC1(R0).EC8IT 
EC8IT 

ECSIT.ECWRD 
**C17.ECBIT 
#17,ECWRD 
ECWRD 

ECWRD 
ECWRD 
A INI OA 
ECWRD, -(SP) 

(SP) 

PC.$S82D 

PC.SSUPRL 

,LJNlOe 

ECSEC. ECWRD 

SRn9A(R0), ECWRD 

4S 

ECC2 



ADDRESS OF LAST LOCN XFERED 
ACT WORDS XFERED (2'S COMP) 
ADD WORDS REQUESTED 

RESTORE STACK 
EXIT—NO WORDS XFERRED 
CLEAR NEXT STACK LOCN 
SECTOR SIZE 

DIVIDE WORDS XFERED BY SECTOR SIZE 
PARTIAL SECTOR XFERED ? 
BR IF NOT 

CONVERT INTO NU^BER OF BYTES 
SUBTRACT SECTOR RESIDUE 
WAS OPERATION. READ HEAD I DATA 
BR IF NOT 

ADD HEADER SIZE (IN BYTES) BACK IN 

GO ADJUST THE STACK POINTER 

SUBTRACT SECTOR DATA FIELD SIZE (IN BYTES) 

ADJUST THE STACK POINTER 

;ECC POSITION COUNT 
ADJUST BIT POSITION 
LOAD THt WORD COUNT LOCATION 
SAVE THE BIT OFFSET COIWT 
CLEAR THE BIT OFFSET 
CHANGE TO BYTE COUNT (DIVIDE BY 2) 
CHANGE TO BYTE COUNT (DIVIDE BY 4) 
CHANGE TO BYTE COUNT (DIVIDE BY 8.) 
•ERROR BL«ST BEGINS AT ' 
PUT THE WORD COUNT ON THE STACK 
GET STARTING WORD FOR MESSAGE (DIVIDE BY 16.) 
CONVERT THE WORD COWT TO DECIMAL 
AND PRINT IT 

• IN DATA FIELD OF ERROR i:..OR' 

FIW THE BEGINNING OF THE ERROR BURST 

SEE IF BURST WAS IN DATA READ 

BR IF IN DATA READ 

NOT IN DATA READ - REPORT IT 



$RMEC2(R0>.ECMSK0 
ECMSK1 
EC8IT 
6$ 

ECMSKO 
ECMSK1 
5S 

aECWRD.ECBADO 
ECMSKO.-(SP) 
aECWRD.(SP) 
ECMSKO, aECWRD 
(SP)*,afCWRD 



;GET THE ERROR BIT MASK 
CLEAR THE UPPER MASK WORD 
DECREMENT THE BIT OFFSET COUNT 
BR IF DONE 

SHIFT THE ERROR MASK 
SHIFT THE LOWER INTO THE UPPER 
CONTINUE THE SHIFT 



SAVE THE INCORRECT WORD 
PUT LOWER MASK ON STACK 
CLEAR ERRONEOUS ONE BITS 
CLEAR ERRONEOUS ONE BITS 
SET DROPPED BITS 



FROM MASK 
FROM BAD WORD 





RM05/5/2 PERF EXER 


MACRO V04.00 4- 


-APR-81 


HA IN PROGRAM 














n 1 C1 1 5 

0 1 5 1 1 2 


005737 


001404 






TST 


<:9*» 


A1 C 1 1 

01 5 1 ID 


00U15 








BEQ 




A1 C 1 5n 

01 5120 


013737 


001406 


001414 




MOV 


296 


A1 CI 5Z. 

015126 


062737 


000002 


001414 




ADD 




A1 C 1 7/ 

01 51 5h 


026037 


002142 


001414 




CMP 




01 51h2 


101006 








BHI 


299 


A1 C 1 / / 
01 51HH 


005737 


001402 






TST 


500 


A1 CI C A 

01 5l 50 


00K73 








BEQ 


501 


A1 C 1 C 5 

01 51 52 


005037 


001414 




7$: 


CLR 


502 


A1 C 1 

01 51 56 


0004 H 








BR 


505 














50*» 


A1 C 1 ^A 

01 5160 


017737 


164230 


001420 


8$: 


MOV 


505 


A1 CI iLJl 

01 51 66 


01 3746 


001404 






MOV 


306 


A1 C1 75 

01 51 r^2 


047716 


164216 






BIC 


50^ 


A1 C1 7A 

01 51 fO 


043777 


001404 


164210 




BIC 


50o 


A1 C5A/ 
0 1 520h 


052677 


164204 






BIS 


509 














510 


A1 C51 n 
0 1 5^ 1 0 


104414 


075354 




ECC1: 


DISPLY 


51 -> 


A1 C51 / 


013746 


001406 






MOV 


PI C55A 

01 5220 


004737 


023144 






JSR 




ni ^55/ 


104414 


075554 






DISPLY 




ni ^57n 


013746 


001412 






MOV 




ni C57Z. 
U 1 5c JH 


004737 


023144 






JSR 




U 1 5chU 


104414 


075554 






DISPLY 




U 1 5c*»*» 


017746 


164136 






MOV 




U 1 5c5U 


004737 


023144 






JSR 




ni ^5^/. 

U 1 5c5*» 


104414 


075554 






DISPLY 


J 1 O 














71 7 
5 1 f 


ni «;5An 


005737 


001414 






TST 


71 B 

5 lo 


ni C5A/. 


001427 








BEO 


71 Cl 

519 


ni C5AA 
0 1 5cOO 


104414 


001203 






DISPLY 


75/. 

52*» 


ni ^575 
0 1 5Cf C 


013746 


001414 






MOV 




ni ^57A 


004737 


023144 






JSR 




ni ^7n5 

U 1 5 jUc 


104414 


075554 






DISPLY 




ni «;7nA 
U 1 5 jUO 


013746 


001420 






MOV 




ni ^71 5 
U 1 J J 1 c 


004737 


023144 






JSR 




U 1 5 J 1 O 


104414 


075554 






DISPLY 




m ^755 


017746 


164066 






MOV 




ni ^75A 
U 1 5 JcO 


004737 


023144 






JSR 




ni ^^7? 

\J 1 5 JJC 


104414 


075554 






DISPLY 


75^ 

JCJ 


ni ^■?7A 

'1 1 5 j50 


000402 








BR 


79^ 














757 


ni ^7An 


104414 


075250 




ECC2: 


DISPLY 


75a 


ni ^7/.A 

U 1 5 j*t*» 


104414 


001203 




ECCX: 


DISPLY 


750 


ni ^7^n 

U 1 5 j5U 


000207 








RTS 


77n 














771 

5 J I 










.-ROUTINE TO DI 


775 

552 














777 

JJJ 


ni ^7^5 

U 1 5 j5c 


032777 


000010 


163574 


PRT8AD: 


BIT 


77/. 


ni ^TAn 

U 1 5 jOU 


001520 








BEO 


77C 


ni ^7A5 


016001 


002142 






MOV 




015366 


016046 


000020 






MOV 


337 


015372 


066016 


002140 






ADD 


338 


015376 


001002 








BNE 


539 


015AOO 


005726 








TST 


340 


015A02 


000207 








RTS 


3«1 


015404 


005046 






1$: 


CLR 
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SEO 008'y 



ECMSK1 
75 

ECWRD.EfWRDI 
*2.ECWRD1 
$RMeA(RO) .ECWRDI 
8$ 

ECMSKO 
ECC2 
ECWRDI 
ECC1 

aECWRDl,ECBAD1 
ECMS»(1.-(SP) 
aECWRDI .(SP) 
EC«SKl,aECWRD1 
(SP)*.aECWRD1 

.LINIOH 

ECWRD.-(SP) 

PCLINOCT 

,8LNKS2 

ECaADO,-(SP) 

PCLINOCT 

.8LNKS2 

aECWRD,-(SP) 

PCLINOCT 

,8LNKS2 

ECWRD1 

ECCX 

.SCRLF 

ECWRDI. -(SP) 

PCLINOCT 

.8LNKS2 

EC8AD1,-(SP) 

PCLINOCT 

.8LNKS2 

aECWRD1,-(SP) 

PCLINOCT 

,8LNKS2 

ECCX 

.LIN10C 

.SCRLF 

PC 



DOES ERROR GO INTO NEXT WORD 
8R IF NO 

DUPLICATE ADDRESS 
INCREMENT ERROR ADDRESS 

;IS NEXT WORD IN THE BUFFER ? 
8R IF YES. ELSE, 
WAS ERROR IN FIRST WORD ? 
8R IF NO 

CLEAR 2ND WORD ADDRESS 
PRINT WORD CORRECTED 

SAVE THE SECOND BAD WORD 

PUT THE UPPER MASK ON THE STACK 

CLEAR ERRONEOUS ONE BITS FROM UPPER MASK 

CLEAR ERRONEOUS ONE BITS FROM DATA WORD 

SET DROPPED BITS 

HEADER 

PUT ECWHD ON THE STACK 

TYPE ECWRD 

TYPE 2 BLANKS 

PUT ECSADO ON THE STACK 

TYPE EC8AD0 

TYPE 2 BLANKS 

PUT aECWRD ON THE STACK 

TYPE aECWRD 

TYPE 2 BLANKS 

PRINT THE NEXT WORD ? 
8R IF NOT 

CR-LF 

PUT ECWRDI ON THE STACK 
TYPE ECWRDI 
TYPE 2 BLANKS 

PUT Eca^D^ on the stack 

TYPE EC8AD1 

type 2 BLANKS 

PUT aECWRDl ON THE STACK 

TYPE aECWRDl 

lYPE 2 BLANKS 

EXIT 



ERROR BURST WAS NOT TRANSFERED 

CR-LF 

RETURN 



-■0 MEMORY 



SPLAY THE SECTOR WHICH GAVE THE HARD ERROR 



#SW3,aSWR 
8$ 

$Rf«A(RO).Rl 
$WRDL(RO).-(SP) 
$RMWC(RO).(SP) 
1$ 

(SP) + 
PC 

-(SP) 



PRINT THE BAD SECTOR ? 
8R IF NOT 

PUT THE END ADDRESS INTO Rl 
FIND THE BEGINNING OF THE SECiOR 
SUBTRACT THE WORDS NOT TRANSFERED 

RESTORE STACK 

EXIT— NO WORDS XF ERRED 

MAKE THE UPPER DIVIDEND 0 



CZRMUeO RM05/5/C PERF EXER MACRO VOA.OO 4-APR-81 

■•MIN PROGRAM 



5A2 


015406 


016046 


000022 






MOV 


5A3 


015412 
015416 


004737 


031710 






JSR 


3AA 


005716 








TST 


345 


01 5420 


001403 








BEQ 


346 


015422 


006316 








ASL 


347 


015424 


161601 








SUB 


548 


015426 


000410 








BR 


349 


015430 


162701 


001000 




2$: 


SUB 


350 


015434 


1 22760 


000005 


000024 




CMP8 


351 


015442 


001002 








BNE 


352 


015444 


162701 


000004 






sue 


333 


01 5450 


062706 


000004 




3S: 


ADD 


354 


015454 


104414 


001203 






DJSPlY 


355 


01 5460 


104414 


075437 






DJSPLY 


356 


O"" 5464 


1 22760 


000005 


000024 




CMPB 


357 


015472 


001021 








BNE 


358 


015474 


104414 


075512 






DISPLV 


359 


015500 


010146 








MOV 


360 


015502 


004737 


023144 






JSR 


361 


01 5506 


104414 


075553 






DJSPLY 


362 


015512 


012146 








MOV 


363 


015514 


004737 


023144 






JSR 


364 


015520 


104414 


075555 






DJSPLY 


365 


015524 


012146 








MOV 


366 


015526 


004737 


023144 






JSR 


367 


015532 


104414 


001203 






DJSPLY 


368 














369 


015536 


104414 


075533 




4$: 


DJSPLY 


370 


015542 


012702 


000010 




5$: 


MOV 


371 


015546 


010146 








MOV 


372 


015550 


0047^^7 


023144 






JSR 


373 


015554 


104414 


075554 






DJSPLY 


374 


01 5560 


020160 


002142 




6S: 


CMP 


375 


015564 


001412 








BEQ 


376 


015566 


104414 


075555 






DISPLY 


377 


015572 


012146 








nov 


378 


015574 


004737 


023144 






JSR 


379 


01 5600 


005302 








DEC 


380 


015602 


001366 








BNE 


381 


015604 


104414 


001203 






DJSPLY 


382 


015610 


000754 








BR 


383 


015612 


104414 


001203 




7$: 


DJSPLY 


384 


015616 


104414 


001203 






DISPLY 


385 


015622 


000207 






8S: 


RTS 


386 














387 










; ROUTINE TO DO 


388 










;CALL: 




389 












MOV 


390 












JSR 


391 












RETURN 


392 














393 


01 5. A' 

oi:-^v 


111037 


070322 




RTNCTR: 


M0V8 


394 


112737 


000117 


070324 




M0V8 


395 


0156>o 


004037 


040714 




1$- 


JSR 


396 


015642 


070322 








GENDP8 


397 


015644 


000774 








BR 


398 


015646 


000207 








RTS 



M 7 

01:42:23 PAGE 13-b 



SEO OOV' 



$SSEC(RO>.-(SP) ;DJVJDE THE WORDS XFCRED BY THE SECTOR SIZE 



PC,$DJV ;DJVJDE 

(SP) .-REMANDFR = 0 ? 

2$ ;8R IF IT IS - COMPLETE SECTOR TRANSFfRED 

(SP) .-CONVERT THE RESIDUAL SECTOR INTO BYTE COUNT 

(SP),R1 ;SIBTRACT JT FROM THE END ADDRESS 

3$ .-FJNJSH THE SIZING 

#256. •2. Rl .-SUBTRACT FULL SECTOR FROM END ADDR (IN BYTES) 

*5.$C0DF(R0) ;WAS OPERATION READ HEADER i DATA "> 

3$ ;8R IF NOT 

#4.R1 .-SUBTRACT HEADER SIZE FROM ADDR 

#4.SP .-RESTORE THE STACK POINTER 

.SCRLF ; CR-LF 

.LJN11H ; PRINT THE HEADER 

#5.$C0DE(R0) ;WAS OPERATION READ HEADER t DATA ' 

4$ .-BR IF NOT 

.LJN11 ;TYPE 'ADDR HEADER' 

RI.-(SP) .-PUT THE ADDRESS ON THE STACK 

PC.LJNOCT .-TYPE THE ADDRESS 

,8LNKS3 .-TYPE 3 BLANKS 

(R1)*,-(SP) .PUT WORD ON STACK 

PCLINOCT .-TYPE THE 1ST HEADER WORD 

.8LNKS1 .-TYPE 1 BLANK 

(R1)*.-{SP) ;PUT WORD ON STACK 

PC.LJNOCT .TYPE THE 2ND HEADER WORD 

.SCRLF .-CR-LF 

.LJNIIA .-TYPE 'ADDR DATA' 

#8.,R2 .-8. DATA WORDS PER LINE 

RI.-(SP) .-PUT THE ADDRESS ON THE STACK 

PC.LJNOCT .-TYPE THE ADDRESS 

,8LNKS2 .TYPE 2 BLANKS 

R1.$RMBA(R0) .PRINTED ALL THE SECTOR ? 

7$ ;BR IF ALL PRINTED 

,8LNKS1 .TYPE 1 BLANK 

(R1)*,-(SP) .PUT THE DATA ON THE STACK 

PCLINOCT .-TYPE THE DATA 

R2 .DECREMENT THE HORIZONTAL COUNT 

6$ ;BR IF NOi AT THE END OF THE LINE 

.SCRLf ; CR-LF 

5$ ;RESTORE THE WORDS/LINE COUNT 

.SCRLF .-CR-LF 

.SCRLF ; CR-LF 

PC .-RETURN 

AN RTC - DRIVE SELECTED IN RO 

*DP8.R0 ;DP8 ADDRESS 
PC. RTNCTR 



(RO).GENDPB .-MOVE THE DRIVE * TO THE GENERAL DPB 
#RTC.GENDPB*$COMND .'COMMAND CODE 

R0.RMO5 .-DRIVER ENTRANCE 

.-DPB ADDRESS FOR COMMAND 
1$ .-DRIVER DIDN'T ACCEPT COMMAND 

PC .-RETURN 



015650 


010037 


015674 




RECALT.- 


MOV 


015654 


116060 


002136 


000027 




M0V8 


015662 


112760 


000107 


000002 




Move 


01 5670 


004037 


040714 




1$: 


JSR 


015674 


000000 






2$: 


.WORD 


01 5676 


000774 








BR 


015700 


005760 


000016 




3$: 


TST 


015704 


001 775 








BEQ 


01 5706 


004737 


023216 






JSR 


015712 


012660 


000034 






MOV 


015716 


112660 


000033 






Move 


01 5722 


112660 


000032 






Move 


01 5726 


005060 


000012 






CLR 


015732 


005060 


000010 






CLR 


01 5736 


000207 








RTS 



CZRMUBO RM05/3/2 PERF EXER 
MAIN PROGRAM 



599 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 

428 015740 112737 

429 015746 004037 

430 015752 070322 

431 015754 000774 

432 015756 005737 

433 015762 001775 

434 015764 000207 
435 

^36 
437 
438 
439 
440 
441 
442 

443 015766 111037 

444 015772 112737 

445 016000 004037 

446 016004 070322 

447 016006 000774 

448 016010 000207 
449 

450 
4''1 
4b2 
453 
454 
455 



MACRO V04.00 



N 7 
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SEQ 00^ 



ROUTINE TO DO A RECALIBRATE USING ACTIVE DP6 
CALL: 

MOV *DP8,R0 ;DP8 ADDRESS 

JSR PC. RECALT 

RETURN 

R0,2$ ;LOAD THE DP8 ADDRESS 

SRMCSI (R0),$PREVO(R0) ;SAVE THE PREVIOUS COMMAND 
*RCCAL,$COMND(RO) ;LOAD THE NEW COMMAND 

R0,RM05 ; START THE RECALIBRATE 

;DPB ADDRESS 

;DRIVER DIDN'T ACCEPT THE COMMAND 
;SEE IF FINISHED 
:IF EQ NO 

;DECREMENT THE ADDRESSES 

.-MOVE THE CYLINDER ADDRESS 
.•MOVE THE TRACK ADDRESS 
.-MOVE THE SECTOR ADDRESS 
; CLEAR THE CURRENT CYLINDER ADDRESS 
; CLEAR THE CURRENT TRK/SEC ADDRESS 
; RE TURN 



0 
1$ 

$TATUS(RO) 
3$ 

PC.READDR 
(SP)*,$PREVA*2(RD) 
(SP)*.$PREVA*1 (RO) 
(SP) ♦.$PREVA(R0) 
$CYL(RO) 
$SEC(RO) 
PC 



ROUTINE TO A RECAL WITH NO DPB ACTIVE 
CALL : 

*DRIVE.GENDP8 .-DRIVE ADDRESS 
PC.RECALO 



M0V8 
JSR 
RETURN 



000107 
040714 



070340 



070324 



RECALO: M0V8 
1$: JSR 

GENDP8 

BR 

2$: TST 
BEQ 
RTS 



*RECAL,GENDP8*$C0MND ;RELCALI8RATE COMMAND 
R0.RM05 .-DRIVER ENTRANCE 

DPB ADDRESS FOR COMMAND 
DRIVER DIDN'T ACCEPT THE COMMAND 
SEE IF FINISHED 
BR IF NOT FINISHED 



IS 

GENDP8*$TATUS 
2$ 
PC 



OFFSET THE DRIVE IN RO (OFFSET CODE PRELOADED INTO 'RMOF') 
CALL : 

*OFFSET,GENDPe*$FMT .-OFFSET CODE 
^DPB.RO ;DP8 ADDRESS 

PC.OFFST 



M0V8 
MOV 
JSR 

RETURN 



070322 
0001 1 5 
040714 



070324 



OFF ST: 
1$: 



M0V8 
MOVB 
JSR 

GENDP8 

BR 

RTS 



(RO).GENDOB ;DhIVE # TO (iENERAL vi'b 
#0FFSET,GENDP8*SC0MND ; COMMAND 



R0.RM05 

1$ 

PC 



UTILITY READ HEADER ROUTINE 
CALL: 

MOV ^DP8,R0 
MOV /rSECTOR.-(SP) 
MOV #TRACK.-(SP) 
MOV *CYLINDER.-(SP) 



DRIVER ENTRANCE 
DPB ADDRESS FOR COMMAND 
DRIVER DIDN'T ACCEPT COMMAND 



DPB ADDRESS 
SECTOR ADDRESS 
TRACK ADDRESS 
C/LINDER ADDRESS 



457 

459 OI0OI2 

460 016020 

461 016026 

462 016034 
46? 016040 

464 016046 

465 016054 

466 016060 
4o7 016062 

468 016064 

469 016070 

470 016072 

471 016076 

472 016102 
473 

474 
475 
476 
477 
478 
479 
480 
481 
482 

483 016104 

484 016110 

485 016114 

486 016116 
48/ 016120 

488 016124 

489 016130 

490 016132 

491 016140 

492 016142 

493 016146 

494 016150 

495 016154 

496 016156 

497 C16160 

498 016166 

499 016170 

500 016174 

501 016202 

502 016204 

503 016206 

504 016212 

505 016216 

506 016220 

507 016222 

508 016226 



2 PERF EXER 
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S£0 009^- 



116637 
116637 
016637 
111037 
112737 
012737 
004037 
070322 
000774 
005737 
001 775 
011666 
062706 
000207 



004737 
0U5760 
001775 
100405 
10523? 
062716 
000425 
032760 
001430 
005737 
001004 
005760 
001014 
000404 
033760 
001407 
105237 
123737 
001340 
000207 
004737 
004737 
005726 
000207 
104414 
000137 



000004 
000006 
000002 
070322 
0001 73 
177776 
040714 



070340 

000006 
000006 



017050 
0000T6 



001331 
000002 

000200 

001326 

002152 

001326 

001331 
001330 



023132 
022710 



074732 
007254 



070333 
070332 
070334 

070324 
070326 



RE ADHD: 



1$: 



2$: 



JSR 

RE TURN 

M0V8 

M0V8 

WOV 

M0V8 

M0V8 

MOV 

JSR 

GENDP8 

BR 

TST 

BEO 

MOV 

ADD 

RTS 



PC.P.EADDR 



4(SP) .GENDPB*$TRK 
6(SP) ,GENDPB*$SEC 
2(SP) .GENDPB*$CYL 
(RO).GENDPB .-DRIVE 
#RDHD.GENDPB*$COMND 
#-2.GENDPB*$WCNT 
R0.RMO5 



1$ 

GENDPB*$TATUS 
2$ 

(SP).6(SP) 

#6.SP 

PC 



RETRr THE PRESENT OPERATION 
CALL: 

MOV #COUNT,RETRY 
JSR PC.SRETRY 
RETURN1 
RETUHN2 



000016 



002152 
001331 



.•TRACK ADDRESS 
.•SECTOR ADDRESS 
.'CrLINDcR ADDRESS 
NUMBER 
; COfW^D 
;W0RD CTR = 2 
DRIVER ENTRANCE 
DP8 ADDRESS FOR COMMAND 
DRIVER DIDN'T ACCEPT COMMAND 
FINISHED? 
8R IF NOT 

ADJUST STACK FOR RETURN 
ADJUST RETRUN POINTER 
RETURN 



RETRY COUNT 



RETRY UNSUCESSfUL 
SUCESSFUL RETRY 

NOTE: IF A DIFFERENT ERROR OCCURS DURING 
RETRY. THE ROUTINE EXITS TO 'ERPRCV 



SRETRY: 


JSR 


PC.GODRIV 


; RE -START COMMAND 


1$: 


TST 


$TATUS(R0) 


.•COMMAND FINISHED? 




BEO 


If 


;8R IF NOT 




BMI 


2$ 


;BR IF ERROR 




INC8 


RETRY*1 


; INCREMENT RETRY COUNT 




ADD 


#2.(SP) 


.•INCREMENT RETURN 




BR 


5$ 


;G0 TO EXIT 


2S: 


BIT 


*8I T7, $TATUS(RO) 


;DID COMMAND TERMINATE NWMALLY ? 




BEO 


7$ 


;8R IF NOT 




TST 


MASK 


;IS ERROR MASK 0 ? 




BNE 


3S 


;8R IF NOT 




Tsr 


SRMERKRO) 


;MAKE SURE THAT THE DRIVE ERROR REG IS CLEAR 




BNE 


6S 


;8R IF NOT 




BR 


4$ 


.•CONTINUE RETRY 


3$: 


BIT 


MASK.tRMERKRO) 


.•SAME ERROR? 




BEQ 


6S 


;8R IF NOT 


4S: 


INC8 


RETRY^l 


.•INCREMENT RETRY COUNT 




CMP8 


RETRY, RETRY*1 


;DONE ? 




BNE 


SRETRY 


;8R IF NOT DONE 


5$: 


RTS 


PC 


• RE TURN 


6S: 


JSR 


PC,LINE8 


•REPORT DIFFERENT ERROR 




JSR 


PC,LINE7 


.•PRINT LINE 7 




TST 


(SP)* 


.•ADJUST STACK POINTER FOR DIRECT RE ''URN 




RTS 


PC 


.•RETURN 

.■'DIFFERENT ERROR DURING RETRY' 


7$: 


DISPLY 


.LJN8M 




JMP 


E RPR CI 


.REPORT THE ERROR 



CZRMueO RM05/5/2 PERf EXER 
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1 

t 

c 
X 

1 
*• 

c 

J 

D 

7 


016232 


032760 


000300 


8 


016240 


001456 




Q 




0160^7 


00P14P 

VV/C 1 c 


1 n 


U 1 Oc J\J 


• OOv J ' 


000006 


1 1 


U FOc JO 


nni447 

\J\J 1 f 




1 5 
1 c 
1 7 




n06P^7 


Olft'.OO 




v 1 QcOH 


1 ??7f\() 

t cc 1 OV/ 


V/vv WC 


\ J 


ni ^P7? 


001404 






01 AP74 

J 1 Oc ' H 


1 PP760 

1 C C r O V 


000000 


1 7 


01 A^np 

\J 1 o ^vc 


00101? 

V/v 1 v 1 C 




1 o 


ni f\%c\L 


06^760 


016400 


19 


ni^>^ip 


005560 


00006? 


cU 


\J 1 O^ 1 o 


10P004 




PI 


ni^^po 


005060 


00006? 


55 
cc 


01A3P4 


005P60 


000056 

WW JSJ 


57 

Cj 








?L 
c** 






00000? 

WW wc 




016336 


00141 7 




CO 




06^760 
wo J» OV 


016400 


57 




005560 


000040 

w w~v/ 


pa 

CO 


01635? 


063760 


01 6400 




016360 


005560 


000070 

Www • V 


30 


016364 


102004 




71 


016366 


005060 


000070 

VWw • V 


7J 


01 6372 


005260 


000064 

W Ww^ 


77 


016376 


000 ?0 7 












75 


016400 


000000 

www 












77 








38 








^9 








40 








41 








4P 








43 








44 








45 


01640? 


010146 




46 


016404 


010P46 




47 




010346 




•to 


016410 


01 370? 


00164? 


49 


016414 


001444 




50 


016416 


01?701 


001644 

Vw t 


51 

^ 1 


0164?? 


0P6061 


000020 

W Wl. V 


52 


016430 


101405 




53 


016432 


005302 




54 


016434 


001434 




55 


016436 


062701 


000004 


56 


016442 


000767 




57 


016444 


011166 


000010 



ROUTINE TO UPDATE THE PERFORMANCE SUMMARY STATISTICS 
CALL : 

#DP8,R0 ;DP8 ADDRESS 

PC.STATIS 



MOV 
JSR 

RETURN 



000016 

016400 
016400 



000024 
000024 
000060 



000024 
000036 
000066 



STATIS: BIT 
BEQ 
MOV 

sue 

BEQ 
ASR 



cMPe 

BEQ 

CMP8 

BNE 

ADD 

ADC 

BVC 

CLR 

INC 



1$; 



2$: 



CMP8 
BEQ 
ADD 
ADC 
ADD 
ADC 
BVC 
CLR 
INC 

3$: RTS 
FACTOR: .WORD 



#8IT07!BIT06.$TATUS(R0; ;CHECK FOR DATA TERMINATION 

3$ ;8R IF NOT DATA TERMINATION 

$RMeA(RO). FACTOR ;STORE THE FINAL BUFFER ADDRESS 

$3JF(R0), FACTOR .-SUBTRACT THE INITIAL ADDRESS 

3$ ;8R IF NO DATA TRANSFER 

FACTOR .-CONVERT TO A WORD COUNT 

*2.$CODE(R0) .-SEE IF COMMAND WAS A WRITE 

1$ .-BRANCH IF YES 

#0.$CODE(R0) .-PRESENT OPERATION AN AUTO WRITE CHECK ? 

2$ ;8R IF NO 

FACTOR. SWRITN(RO) .'ADD WORDS WRITTEN DURING WRITE DATA 

SWR1TN*2(R0) .-DID HIGH WORD OVFLO AFTER ADDING CARRY ? 

2$ .-BR IF NO 

SWRiTN«2(R0) .-CLEAR HJGH WORD 

$WTOFL(RO) ;AND COIWT WRITE OVERFLOW 

*2.$C0DE(R0) .-SEE IF COMMAND WAS A WRITE 
3$ .-BRANCH IF YES 

FACTOR, SENDAT(RO) ;END OF PASS DATA WORD COUNT 

$EN0AT*2(R0) ;ADD ANV CARRY 

FACTOR,$READ(R0) .-UPDATE THE READ WORD COUNT 



$READ*2(R0) 
3$ 

$READ*2(R0) 

$ROOFL(RO) 

PC 



ROUTINE TO GET A BUFFER 
CALL: 

MOV #0P8.R0 
CLR -(SP) 
JSR PC.GETBUF 
RETURN 



000002 



GET8UF: 


MOV 


R1,-(SP) 




MOV 


R2.-(SP) 




MOV 


R3,-(SP) 




MOV 


BUF T8L,R2 




BEQ 


5$ 




MOV 


#8UFT8L*2.R1 


1$: 


CMP 


$WRDL(R0),2(R1) 




BLOS 


2$ 




DEC 


R2 




BEQ 


5$ 




ADD 


#4.R1 




BP 


1$ 


2$: 


MOV 


(RIMO(SP) 



.-DID HIGH WORD OVFLO AFTER ADDING CARRv 
-BR IF NO 
•CLEAR HIGH WORD 
.-AND COUNT READ OVERFLOW 



.USED FOR WORDS TRAT.'SFERED 



DPS ADDRESS 
CLEAR THE STACK 

BUFFER ADDRESS WILL BE ON THE STACK 
STACK WILL BE ZERO IF NO BUFFER AVAILABLE 

SAVE RI 
SAVE R2 
SAVE R3 

NUMBER OF SEPARATE BUFFERS 

6R IF NONE AVAILABLE 

FIRST ADDRESS OF ALLOCATION TABLE 

SEE IF THERE IS A BLOCK LARGE ENOUGH 

BRANCH IF IT IS 

DECREMENT TABLE COUNT 

BR IF THROUGH TABLE 

INCREMENT TABLE POINTER 

CONTINUE LOOKING 

BUFFER ADDRESS TO STACK 



'ZRMU80 PERF EXER 
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SEO 0094 



58 016A50 

59 016A56 

60 016A60 
f 01646A 

62 016A70 

63 016A/A 
6A 016A76 

65 016502 

66 01650A 

67 016506 

68 016510 

69 016512 

70 016516 

71 016520 

72 016522 

73 016524 

74 016526 

75 016530 

76 016532 

77 C16534 
78 

79 
80 
81 
82 
83 
84 
85 

86 016536 

87 016540 

88 016542 

89 016544 

90 016546 

91 016550 

92 016554 

93 016560 

94 016562 

95 016566 

96 016570 

97 016574 

98 016576 

99 016600 

100 016604 

101 016606 

102 016610 

103 016614 

104 016622 

105 016626 

106 016630 

107 016632 

108 016636 

109 016642 

110 016646 

111 016650 

112 016654 

113 016662 

114 016664 



166061 
001407 
006360 
06601 1 
006260 
000414 
005337 
001411 
005302 
001407 
010103 
062703 
012321 
012321 
005302 
001 374 
012603 
012602 
012601 
000207 



010146 
010246 
010346 
010446 
010546 
012701 
01 3702 
001424 
016003 
006303 
066003 
021103 
001424 
062701 
005302 
001372 
016011 
016061 
005237 
005202 
000414 
016021 
016021 
005237 
000443 
016011 
066061 
010246 
013702 



000020 000002 

000020 
000020 
000020 

001642 



000004 



001644 
001642 

000110 

000006 

000004 



000006 
000110 
001642 



000006 
000110 
001642 

000006 
000110 

001642 



4S: 



5$: 



sue $WR0L'R0),2(R1) 

BEQ 3$ 

ASL $WRDL(RO) 

ADD $WRDL(RO) , (R1) 

ASR $WRDL(RO) 

BR 5$ 

DEC BUFT8L 

BEO 5$ 

DEC R2 

BEQ 5$ 

MOV R1.ft3 

ADD #4,R3 

MOV (R3)*.(R1)+ 

MOV (R3)*,(R1)* 

DEC R2 

6NE 4S 

MOV (SP)*,P3 

MOV (SP)*,R2 

MOV (SP)+,R1 

RTS PC 



ADJUST BUFFER WRD CNT 
8R IF DIFFERENCE IS ZERO 
CONVERT # WORDS TO BVTES 
MAKE NEW STARTING ADDRESS 
RETURN # BVTES TO WORDS 
RETURN 

DECREMENT ENTRIES COUNT 

8R IF ALLOCATION TABLE EMPTY 

DECREMENT TABLE COUNT 

BR IF ITEM WERE LAST ENTRY 

MOVE TABLE POINTER 

POINT TO NEXT ENTRY 

MOVE ITEMS 



DECREMENT TABLE COUNT 

CONTINUE IF NOT AT END OF 

RESTORE R3 

RESTORE R2 

RESTORE R1 

RETURN 



TABLE 



ROUTINE TO PUT BUFFER BACK IN TABLE 
CALL: 

MOV #DP8.R0 
JSR PCRELBUF 
RETURN 



;DP8 ADDRESS 



000002 



000002 



REL8UF; MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
BEO 
MOV 
ASL 
ADD 

1$; CMP 
BEO 
ADD 
DEC 
BNE 
MOV 
MOV 
INC 
INC 
BR 

2$- MOV 
MOV 
INC 
BR 

3$: MOV 

ADD 

4$: MOV 
MOV 



R1,-(SP) 

R2.-(SP) 

R3.-(SP) 

R4.-(SP) 

R5.-(SP) 

#8UFT8L<-2,R1 

BUF T8L,R2 

2S 

SHLDUC(R0),R3 
R3 

$8UF(R0),R3 

{R1),R3 

3$ 

#4.R1 

R2 

1$ 

$8Uf (R0),(R1) 

$HLDWC(R0),2(R1 

BUF T8L 

R2 

4$ 

$8UF(R0),(R1)-» 
$HLDWC(R0),(R1) 
BUF T8L 
8$ 

$8UF(R0),(R1) 
$HLDWC(R0),2(R1 
R2.-(SP) 
BUF TBL,R2 



SAVE R1 
SAVE R2 
SAVE R3 
SAVE R4 
SAVE R5 

BEGINNING OF TABLE 

ENTRV COUNT 

BR If EMPTY TABLE 

TRIAL ADDRESS 

CHANGE TO BYTE COUNT 

ADDRESS OF HIGHER ADJACENT BLOCK 

UPPER ADJACENT BLOCK 

BR IF YES 

INCREMENT POINTER 

DECREMENT ENTRY COUNT 

CONTINUE SEARCHING 

PUT THE BUFFER BLOCK INTO THE TABLE 

.•BLOCK URO CNT 
INCREMENT ENTRY COUNT 
INCREMENT R2 FOR USE LATER 
SEE IF A LOWER ADJACENT BLOCK IS IN THE 
BLOCK ADDRESS TO TABLE 

;WRD CNT TO TABLE 
INCREMENT ENTRY COUNT 
EXIT 

RELEASED BUFFER IS LOWER ADJACENT 
.•INCREMENTED WRD CN^ 

.•SAVE R2 
.•ENTRY COUNT 



^ABlE 



rZRMUBO R«05/5/2 PERF EXER 
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SEO 009S 



115 

n6 

117 

r.8 

119 

120 

121 

12? 

123 

124 

125 

126 

127 

128 

129 

130 

131 

^32 

133 

13A 

135 

13^ 

137 

138 

139 

KG 

141 

142 

145 

144 

145 

14b 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

i7f 



016670 
016674 
016700 
016702 
016704 
016706 
016710 
016714 
016716 
016720 
016722 
016724 
016726 
016734 
016740 
016742 
016746 
016750 
016752 
C16754 
016756 
016760 
016762 
016764 
016766 
016770 



012705 


001644 




MOV 


*8UFTBL*2,R5 ; 


BEGINNING OF TABLE 


016504 


C00002 


5$: 


MOV 


2(R5),R4 ; 


BLOCK SIZE (IN WORDS) 


006304 






ASL 


R4 


CHANGE TO BYTE COUNT 


061504 






ADD 


(R5),R4 


ADD BLOCK BEGINNING ADDRESS 


020411 






CMP 


R4,(R1) 


Rl STILL POINTS TO INSERTED ENTRY 


001406 






BEO 


6t 


LOWER ADJACENT IN TABLE 


062705 


000004 




ADD 


*4.R5 


INCREMENT POINTER 


005302 




DEC 


F<2 


DECREMENi ENTRY COUNT 


001 366 






BNE 


5$ 


CONTINUE LOOKING 


005726 






TST 




RESTORE STACK POINTER 


000415 






BR 


8S 


END 


012602 




6$: 


MOV 


(SP)*,R2 


■RESTORE R2 


066165 


000002 000002 




ADD 


2(R1),2(R5) 


■INCREMENT LOWER BLOCK LENGTH 


005337 


001642 




DEC 


BUF T8L 


■DECREMENT ENTRY COUNT 


010105 






MOV 


Rl .R5 


•GET READY TO COMPRESS 


062705 


000004 




ADD 


*4.R5 


•INCREMENT TO NEXT ENTRY 


012521 


7$: 


MOV 


(R5)*, (Rl )♦ 


;COMPRESS lABLE 


012521 






MOV 


(R5)*, (RD* 


;MOVE SIZE FIELD DOWN 


005302 






DEC 


R2 


; DECREMENT ENTRY COUNT 


001 374 






BNE 


7$ 


;6R IF NOT FINISHED 


/>i ^z AC 

012605 




Oft . 


MOV 




•DCCTDDC DC 


012604 






MOV 


(SP)*.R4 


.•RESTORE R4 


012603 






MOV 


(SP)*.R3 


; RESTORE R3 


012602 






MOV 


(SP)*.R2 


.•RESTORE R2 


012601 






MOV 


CSP)*.R1 


.•RESTORE Rl 


000207 






R7S 


PC 


.•RETURN 











MOV 


#DPe.RO 










MOV 


«eUFADR,$eUF( 










M0V8 


#PATTFRN,SPAT 










JSR 


PC.FILBUF 










RETURN 




016772 


104412 




FILBUf : 


SAVREG 


#4.$C0DE<R0) 


016774 


132760 


000004 000024 




BITS 


01 7002 


001020 






BNE 


4$ 


017004 


016001 


000006 


1$: 


MOV 


$8UF(R0),R1 


017010 


016002 


000020 




nov 


SWRDL(R0),R2 


017014 


116004 


000030 




MOVB 


$PATTCCR0).R4 


017020 


016405 


002426 


2$: 


MOV 


SrNDAT(R4>,R5 


017024 


012703 


000020 




MOV 


#16.,R3 


017030 


012521 




3$: 


MOV 


(R5)*,(R1)* 


017032 


005302 






DEC 


R2 


017034 


003403 






BLE 


4$ 


017036 


005303 






DEC 


R3 


017040 


001373 






BNE 


3$ 


017042 


000766 






BR 


2$ 


017044 


104413 




4$: 


RESREG 




01 7046 


000207 






RTS 


FC 



FILL THE ASSIGNED BUFFER (IF WRITE OR WRITE CHECK COnMAND) 
CALL : 

;DP8 ADDRESS 

.-LOAD BUFFER ADDRESS INTO THE DP8 
RO) .-PATTERN CODE 



SAVE THE REGISTERS 
SEE IF READ COMMAND 
BR IF READ 
BUFFER ADDRESS 
POSITIVE WORD COUNT 
RELATIVE PATTERN ADDRESS 
PATTERN ADDRESS 
PATTERN COUNT 

MOVE THE PATTERN INTO THE BUFFER 

DECREMENT THE WORD COUNT 

8R IF DONE (WORD COUNT = 0) 

DECREMENT THE PATTERN COUNT 

8R IF MORE PATTERN 

CONTINUE DISTRIBUTING THE PATTERN 

RESTORE THE REGISTERS 

RETURN 



START THE COMMAND FOR ^HE DP8 IN RO 
CALL : 

MOV #DP8.R0 ;DPB ADDRESS 

JSR PC.GODRIV 
RE TURN 



7SWUB0 RM05/?/2 PERF ExFR I1ACR0 V04.00 A-APR-81 

"IAIN PROGRAM 

017050 0100^6 GODRIV: MOV 

17A 017052 010037 01706? MOV 

175 017056 004037 0407 H ^S: JSR 

176 017062 000000 ?$: .WORD 

177 017064 000000 HALT 

178 017066 012600 MOV 

179 017070 062760 000001 000046 ADD 

180 017076 005560 000050 ADC 
^81 017102 026060 000034 000012 CMP 
'82 017110 00H12 BEQ 
133 017112 062760 000001 000042 ADD 

184 017120 005560 0C0044 ADC 

185 017124 062760 000001 000052 ADD 

186 017^32 005560 000054 ADC 

187 017136 000207 3$: RTS 
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SfC 009/, 



RO.-(SP) 
R0.2t 
R0,RM05 
0 



(SP)».R0 
#1 .$0PERC(R0) 
$0P£RC*2(R0) 
$P'.iEVAv2CR0) .SCVKPO) 



SAVE RO 

CURRENT DPS ADDRESS 
CALL THE DRIVE HANDLER 
DRIVE BLOCK ADDRESS GOES HERE 
DRIVER REJECTED REQUEST 
RESTORE RO 

IfgCREMENT THE OPERATION COUNT 



3$ 

#1,$ENDSK(R0) 

$ENDSK*2(R0) 

#1.$POSIT(R0> 

$P0SIT»2(R0) 

PC 



;D1D COMMAND REQUIRE A CHANGE 



8R IF NO 
INCREMENT END OF PASS SEEK COUNT 
ADD ANY CARRr 
INCREMENT SEEK COUNT 
ADD ANY CARRY 



'zpmubo r-^cs/^/^ per' fxer 
'^a:\ prograt* 



5 

6 
7 
8 
9 
10 
11 
12 
13 
'4 
15 
16 
17 
'8 
79 
20 
21 
22 
2? 
2^ 
25 
26 
2^ 
28 
29 
30 
31 



MACRO VOA.OO 
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33 
3^ 
35 
36 
37 
38 
39 
40 
A1 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



017140 
017144 
017150 
01^152 
017156 

CI 71 60 
017166 
017174 
017202 
017210 

017216 
01 7222 
01 7226 
01 7230 
017236 
01 7244 
017252 
017260 
017266 
017270 
017274 
017302 

01 7304 
017310 
017314 
CI 7320 
01 7324 
U17332 
017334 
017340 
017346 
017354 
017360 

017366 
017372 
01 7374 
017402 
0174-»C 
017412 
017420 



004737 
005760 
001003 
005760 
001452 

116060 
016060 
016060 
016060 
016060 

012704 
004737 
000426 
116060 
11 6060 
016060 
112760 
122760 
001467 
004737 
032777 
001465 

012704 
013705 
00'«737 
010560 
042760 
001002 
105260 
01606C 
016060 
005460 
012760 

105760 
100407 
112760 
112760 
000412 
112^60 
112760 



027346 
000050 

000046 



0C2136 
0000'' 0 
000012 
002144 
002172 

000010 
020164 

000136 
0001 32 
000126 
000004 
^ 77776 

031240 
000020 



000010 
001450 
020316 
000020 
000377 

000021 
000020 
000020 
000004 
000400 

000026 

000004 
000171 

000002 
000161 



000027 
000032 
000034 
000010 
000012 



000010 
00001 1 
000012 
000024 
000026 



161652 



000020 



000004 
000110 

000022 



000024 
000002 

000024 
000002 



ROUTINE TO SETUP PARAMETERS FOR A SEQUENTIAL READ OR WRITE Of THf DISK 
CALL: 

MOV 4rDP8,R0 ;DP8 ADDRESS 





MOV 


*-2.$PACK(R0) 


OR 






MOV 


*-1.$PACK(R0) 


OR 








MOV 


«1.SPACK(R0) 



WRTPK; 



1$: 



2$: 



3$: 



4$: 
5$: 



JSR 

RETURN 

JSR 
TST 
BNE 
TST 
BEO 

M0V8 

MOV 

MOV 

MOV 

MOV 

MOV 
JSR 
BR 

MOVB 

M0V8 

MOV 

MOVB 

CMP8 

BEO 

JSR 

BIT 

BEO 

MOV 

MOV 

JSR 

MOV 

BJC 

BNE 

INCB 

MOV 

MOV 

NEG 

MOV 

TST8 

8MI 

MOVB 

MOVB 

BR 

MOVB 



PCWRTPK 



PC.6ETLMT 

$OPERC*2(R0) 

1$ 

$OPERC<RO) 
2$ 



.••WRITE PACK' I 'TEST' FLAG 
.••WRITE PACK^ FLAG 
.••READ PACK^ FLAG 
;CALL READ OR WRITE PACK 



GET ADDRESS LIMITS 

IS THIS THE FIRST OPERATION ? 

8R IF NO 

IS THIS THE FIRST OPERATION ? 
8R IF VES 



$RMCS1(R0),SPREV0(R0; 

SSEC<R0}.$PREVA(R0) 

$CrL(R0),$PREVA*2(R0) 

$RMDA(R0),$SEC(R0) 

$RMDC(R0>.$CyL(R0) 



;SAVE CURRENT PARAMETERS 
.-SAVE PREVIOUS TRACK/SECTOR ADDRESS 
;SAVE PREVIOUS CYLINDER ADDRESS 
.•CURRENT SECTOR £ TRACK ADDRESS 
.•CURRENT CYLINDER ADDRESS 



*$SEC.R4 

PC.CKLMTS 

2$ 

MINSEC(R0).$SEC 

MINTRK(RO),$TRK 

MINCYL(RO).$CYL 

#4.$CODE(R0) 

#-2.$PACK(R0) 

7$ 

PC.E0P2 

4rsw04.aswR 
8S 



GET INDEX TO SECTOR ADDR STORAGE IN DP8 
GO CHECK DISK ADDRESS LIMITS 
8R IF NOT AT END OF SEQUENTIAL ADDRESSING 
(RO) .RESET SECTOR ADDRESS 
(RO) .RESET TRACK ADDRESS 

(RO) .-RESET CYLIWER ADDRESS 
SET CODE TO READ DATA 
WAS WRITE DATA PACK IN PROCESS ? 
8R IF YES (START TESTING) 
DROP THE DRIVE (NORMAL TERMINATION) 
IS SWITCH 4 SET ? 
BR IF NO 



#$SEC.R4 
WRDCNT.R5 
PC.CHKWC 
RS.$URDL(RO) 
*377.$WROL(R0) 
3$ 

$WRDL*1 (RO) 
$WRDL(RO).$WCNT(RO) 
$WRDL(RO).$HLDWC(RO) 
$WCNT(RO) 
#256..$SSEC(R0) 



$PACK(R0) 
5$ 

*4.$CODE(R0) 

#RDDAT.SCOMND(RO 

6S 

#2.$CODE(R0) 



GET INDEX TO SECTOR STORAGE 
WORD COUNT IS MAXIMUM 
CHECK WORD COUNT FOR MAXCYL/MAXTRk 
GET WORD COUNT 

IS IT LESS THAN ONE SECTOR WORD COUNT 
NO 

SET TO ONE SECTOR 

.•STORE FOR 2'S COMPLEMENT WORD 
.•HOLD WORD TOR 'RELBUF' ROUTINE 
CHANGE WORD COUNT TO 2'S COMPLEMENT 
SECTOR SIZE FOR READ 



*WRrDAT,$COMND(R0) 



READ OR WRITE PACK ? 

Bfi IF WRITE 

CODE FOR READ DATA 

.•DRIVE CODE FOR OPERATION 
SET UP FOR EXIT 
CODE FOR WRTDAT 



;0P CODE 



'ZRMueO RM05/^/2 PERF EXER 
MAIN PROGRAW 



S8 
59 
60 
6^ 
62 
63 
6A 
65 
66 
67 



017426 
017^32 
017436 
01 74U 

01 7446 
01 7452 
017456 
017462 
017464 



004757 
110S60 
012760 
000207 

005037 
105060 
005060 
005726 
000137 



02012? 
G00030 
\77777 



001 320 
000026 
000120 

006142 



•1ACH0 VG4.00 



000^20 6»: 



7t; 
8f : 
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JSR PC.GETPAT 

M0V8 R5.SPATTC(R0) 

MOV #-1.$NEXT(R0) 

RTS PC 

CLR PACK 

CLR8 SPACKCRO) 

CLR iNEXT(RO) 

TST (SP)* 

JMP MAjN 



GET PATTERN CODE 
PATTERN CODE 

SET PARAMETERS SELECTED INDICATOR 
RETURN 

;SET 'TEST* FLAG 

;SET DP8 'TEST* ^LAG 

; CLEAR 'PARAMETER SELECTED' INDKATOf< 

.-CLEAR STACK LEVEL 

;JIJMP TO MAIN BACKGROUND 1 OOP 



rZ«MU80 PERF ExFR MACHO VO-i.OO 4-APR-81 

liAIN PROGRAM 

; GENERATE PARA) 
? .-CALL: 
^ ; MOV 

A ; JSR 

5 ; RETURN 

6 

7 017470 004737 027346 GENPAR: JSR 

8 017474 004737 036724 JSR 

9 017500 032777 000001 161446 BIT 

10 017506 U01012 BNE 

11 017510 012705 000010 MOV 

12 017514 004737 031664 JSR 

13 017520 020537 001464 CMP 

14 017524 103003 BHIS 

15 017526 012705 000002 MOV 

16 017532 000407 BR 
17 

18 017534 013705 037024 U: MOV 

19 017540 000305 SWAS 

20 017542 042705 177776 BIC 

21 017546 062705 000004 ADD 

22 017552 110560 000112 2$: M0V8 

23 017556 016060 002144 000114 MOV 

24 017564 016060 002 V2 000116 MOV 
25 

26 .ENA8L LS8 

27 

28 017572 005737 001474 THE AD: TST 

29 017576 001426 BEO 

30 017600 005760 000050 TST 

31 017604 001003 BNE 

32 017606 005760 000046 TST 

33 017612 001405 BEO 
34 

35 017614 012704 000114 THEAD1 : MOV 

36 017620 004737 020164 JSR 

37 017624 000411 BR 

38 017626 116060 000136 000114 1$: M0V8 

39 017634 116060 000132 000115 M0V8 

40 017642 016060 000126 000116 MOV 

41 017650 000137 020000 2$: JMP 
42 

43 .DSA8L LS8 
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SEO 009V 



TEftS FOR THE OPERATION 



*DP8.R0 ;DP8 ADDRESS 

PC.GENPAR 



PC.GETLMT .-GET ADDRESS LlMHs 

PCSRAND ; CYCLE THE RANDOM NUMBER GENERATOR 

#SUO,SSUR ;SEE IF SWO SET 

1$ ;8R IF SET - READ ONLY 

#8.,R5 .-READ/WRITE SELECTION DIVISOR 

PCGETREM ;6ET SELECTION VALUE 

R5,RATI0 ; DETERMINE IF READ OR WRITE 

1$ ;8R ir READ 

#2,R5 ; SELECT WRITE DATA COMMAND 

2$ ; SELECT ADDRESS 

$L0NUM,R5 .-SELECT READ OPERATION CODE 

R5 .-SWAP BYTES IN R5 

**C1,R5 .-MASK OUT ALL BUT BIT 0 

*4,R5 .-TABLE OFFSET FOR READ CODE 
R5,$NC0DE(R0) .-COMMAND SELECTION CODE TO CONTROL BLOCK 



$RMDA(RO).$NSEC(RO) .'SECTOR AND TR.ACK. 

$RMDC(RO),$NCYL(RO) ; CYLINDER NU^BER 



RANDOM 
RANCYL 

$OPERC*2<R0) 
THEADl 
$OPERC(RO) 
1$ 



#SNSEC.R4 
PC.CKLMTS 
2$ 

MINSEC(RO).$NSEClRO) 
MINTRK(RO).$NTRK(RO) 



ENABLE RANDOM ADDRESS SELECT : 
YES 

IS THIS THE FIRST OPERATION 
8R IF NO 

IS THIS THE FIRST OPERATION ? 
8R IF YES 



GET INDEX TO SECTOR ADDR STORAGE IN DPS 
GO CHECK DISK ADDRESS LIMITS 
8R IF NOT AT END OF SEQUENTIAL ADDRESSING 
.-RESET SECTOR ADDRESS 
.•RESET TRACK ADDRESS 



MINCVL(RO).$NCYL(RO) .-RESET CYLINDER ADDRESS 
RANSIZ ;G0 CHECK FOR RANDOM WORD SIZE 



rZRMUBO RMOS/"?/? PERF EXER 
"IAIN PHOGRAM 



K1ACR0 V04.00 



J 8 

4-APR-81 01:42:i?3 PAGE 17 



SCO 0100 



1 
2 
3 

5 
6 

7 

8 
9 
10 
11 
12 
13 

15 
16 
17 

18 
19 
20 
21 
22 
23 
2A 



33 
34 
35 
36 
37 
38 
39 
AO 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



01 7654 
017660 
017664 
017666 
017672 
01 7674 
017700 
01 7704 



017710 
017714 
017720 
017722 
01 7726 
01 7730 
017734 
01 7740 



016005 
026005 
001407 
166005 
005205 
004737 
066005 
010560 



016005 
026005 
001407 
166005 
005205 
004737 
066005 
110560 



000124 
000126 

000126 

031664 
000126 
000116 



000130 
000132 

000132 

031664 
000132 
000115 



020000 
020004 
020010 
020012 
020014 
020020 
020024 
020026 
020032 

020034 
020040 



020044 
020052 
020054 
020060 
020062 
020066 



013705 
005737 
001011 
005205 
004737 
020527 
002003 
004737 
000762 

012704 
004737 



122760 
001005 
042705 
001002 
012705 
010560 



001450 
001462 



031664 
000006 

036724 



000114 
020316 



000002 

000377 

000400 
000020 



25 


01 7744 


016005 


000134 


RANSEC: 


MOV 


MAXS£C(R0).R5 


26 


017750 


026005 


000136 




CMP 


MJNSEC(R0),R5 


27 


017754 


001407 






BEQ 


1S 


28 


017756 


166005 


000136 




SUB 


M1NSEC(R0J.R5 


29 


01 7762 


005205 






INC 


R5 


30 


01 7764 


004737 


Oil 664 




JSR 


PC.6ETREM 


31 


017770 


066005 


000136 




ADD 


MINSEC(R0),R5 


32 


017774 


r0560 


000114 


1$: 


M0V8 


R5,$NSEC(R0) 



.•GENERATE A RANDOM CrLlNDER ADDRESS BETWEEN VALUES 'MINCVL' I 'MAXCVL' 

GET MAXJMUM CYLINDER ADDRESS 
'MINCVL' AND 'MAXCVL' THE SAME 7 
8R I f THE V ARE 

GET NUMBER OF ALLOWABLE CYLINDERS 
INCREMENT DIFFERENCE TO USE AS DIVISOR 
GET THE RANDOM AUGMENT 
NEW CYLINDER ADDRESS 
STORE CYLINDER ADDRESS IN DPS 

BETWEEN VALUES 'MINTRK' I 'MAXTRK* 

GET MAXIMUM TRACK ADDRESS 
•MINTRK* AND 'MAXTRK' THE SAME ? 
BR IF THEY ARE 

GET NUMBER OF ALLOWABLE TRACKS 
INCREMENT DIFFERENCE TO USE AS DIVISOR 
GET THE RANDOM AUGMENT 
NEW TRACK ADDRESS 
STORE TRACK ADDRESS IN DPS 

.•GENERATE A RANDOM SECTOR ADDRESS BETWEEN VALUES 'MINSEC £ 'MAXSEC 

GET MAXIMUM SECTOR ADDRESS 
•MINSEC AND 'MAXSEC THE SAME ? 
BR IF THEY ARE 

GET NLM3ER OF ALLOWABLE SECTORS 
INCREMENT DIFFERENCE TO USE AS DIVISOR 
GET THE RANDOM AUGMENT 
NEW SECTOR ADDRESS 
STORE SECTOR ADDRESS IN DP8 

.•GENERATE A RANDOM BUFFER LENGTH BETWEEN 6 I THE VALUE IN 'WRDCNT* 



RANCYL : 


MOV 


MAXCYL(RO) .R5 




CMP 


l>«INCYL(R0).R5 




BEO 


1$ 




sue 


MINCYL(RO) .R5 




INC 


R5 




JSR 


PC.GETREM 




ADD 


MINC YL (RO) ,R5 


1$: 


MOV 


Rd. JNCYL (RU) 


.•GENERATE A 


RANDOM TRACK ADDRE 


RANTRK: 


MOV 


nMA 1 nK \ T\\J} ,nj 




CMP 


MINTRK(R0),R5 




BEQ 


1$ 




SUB 


MINTRK(RO) .R5 




INC 


R5 




JSR 


PC.GETREM 




ADD 


MINTRK(R0),R5 


1$: 


M0V8 


R5.$NTRK(R0) 



RANSIZ: MOV 
TST 
BNE 
INC 
JSR 
CMP 
BGE 

1$: JSR 
BR 



2$: 



000112 3$: 



4t: 



MOV 
JSR 



CMPB 

BNE 

8IC 

BNE 

MOV 

MOV 



WRDCNT.R5 

RANDUC 

2$ 

R5 

PC.GETREM 

R5.#6 

2$ 

PC.SRAND 
RANSIZ 

#$NSEC.R4 

PC.CHKWf 



<f?.$NCODE(R0) 
4$ 

*377.R5 
4$ 

*256..R5 
R5,$WRDL (RO) 



GET MAX WORD COUNT 

SELECT A RANDOM WORD COUNT "» 

BR IF NOT 

INCREMENT THE MAXIMUM WRD CNT 
DIVIDE BY MAX VALUE 
WORD COUNT LESS THAN 6 ? 
BR IF NO 

CYCLE THE RANDOM NUMBER GENERATOR 



GET INDEX TO SECTOR STORAGE 

SEE IF WORD COUNT IS TOO LARGE TO FIT 

IN REMAINDER OF TRACK. IF SO. THEN ADJUST 

WORD COUNT TO FIT ON TRACK. 

WRITE OPERATION ? 

BR IF NO 

WRITTING PARTIAL SECTOR ? 
BR IF NO. ELSE. 
WRITE AT LEAST ONE SECTOR 
WORD COUNT 



;6ET A RANDOM PATTERN NUMBER 



''ZRMUBO RM05/^/2 PERF EXER HACRO VO^i.OO A-APR-81 

l^WIN PROGRAM 

58 

59 020072 122760 000002 000112 RANPAT: CMP8 

60 020100 001 OOA BNE 

61 020102 C0A737 020122 JSR 

62 020106 110560 000113 M0V8 

63 020112 012760 "[77777 000120 RANXJT: MOV 
6A 020120 000207 RTS 
65 

66 ; ROUTINE TO SE 

67 

68 020122 012705 000020 GETPAT: MOV 

o9 020126 005737 00K60 TST 

70 020132 001 A03 BEQ 

71 020134 013705 001460 MOV 

72 020140 000407 BR 

73 020142 004737 031664 1$: JSR 

74 020146 005705 TST 

75 020150 001003 BNE 

76 020152 004737 036724 .SR 

77 C20156 000761 BR 

78 020160 006305 2$: ASL 

79 020162 000207 RTS 
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SEO 0101 



*2.$NC0DE(R0) 

RANXIT 

PC. GETPAT 

R5.$NPATC(R0) 

#-1,$NEXT(R0) 

PC 

ECT A PATTERN 

#16. ,R5 
PATTERN 
1$ 

PATTERN, R5 
2$ 

PC.GETREM 

R5 

2$ 

PC.SRAND 

GETPAT 

R5 

PC 



WRITE OPERATION ? 

8R IF NO 

GET PATTERN CODE 

MOVE PATTERN CODE TO CONTROL BL0C»C 
SET PARAMETERS SELECTED INDICATOR 
RETURN 



SELECT PATTERN 

ENABLE RANDOM PATTERN SELECTION ? 
rES 

USE INDEXED PATTERN 
NO 

GET CODE 

WAS PATTERN ZERO SELECTED ? 
8R IF NOT ZERO 

CrCLE THE RANDOM NUMBER GENERATOR 
TRy AGAIN 

MAKE CODE INTO TABLE INDEX 



CZRMueO R«05/3/2 PiRf EXER 
MAIN PROGRAM 



T 
2 
3 
4 

5 
6 

7 
8 
9 

10 
11 
12 
13 

K 0201 6A 060004 

15 020166 026A60 

16 0201 7A 002003 

17 020176 01606A 

18 02020A 126A60 

19 020212 002003 

20 C2021A 11606A 

21 020222 121A60 

22 020226 002002 

23 020230 11 601 A 
2A 

25 
26 

27 02023A 121A60 

28 0202A0 003A0A 

29 0202A2 11 601 A 

30 0202A6 10526A 

31 020252 126A60 

32 020260 U03A07 

33 020262 11 601 A 
3A 020266 11606A 
35 02027A 00526A 
56 020^.00 026A60 

37 020306 003A02 

38 020310 062716 

39 02031 A 000207 



MACRO VOA.OO 
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^EO 010. 



000002 000126 



000126 
000001 

000132 
000136 

000136 



000 13A 

000136 
000001 
000001 

000136 
000132 
000002 
000002 

000002 



000002 
0001 32 

000001 



THIS ROUTINE IS USED TO CHECK ADDRESS LIMITS BEFORE THE NEXT COMMAM) 
IS PFRFORMED. ALSO. IT WILL CHECK FOR MAXIMUM ADDRESS LIMITS TO LOOK 
FOR AN END TO THE SEQUENTIAL ADDRESSING. 

CALL: 



MOV 
MOV 
JSR 
BR 



#DP8,R0 
#POINTER,RA 
PCCKLMrS 



DPS ADDRESS 

POINTER TO SECTOR STORAGE (fSEC OR $NSEC) IN DP8 
CALL ADDRESS LIMITS FIOUTINE 

RETURN HERE IF NOT END OF SEQUENTIAL ADDRESSING 
ELSE, RETURN HERE TO RESET DISK ADDRESS 



RO = 0P8 ADDRESS BEFORE CALLING THE ROUTINE 

RA POINTER TO SECTOR STORAGE BEFORE CALLING ^HE ROUTINE 



CKLMTS: ADD 
CMP 
BGE 
MOV 

1$: CMP8 
BGE 
M0V8 

2S: CMPS 
BGE 
M0V8 



RO.RA ;POINT TO SECTOR STORAGE POINT IN DP8 

2(RA),MINCyL(R0) ;IS CYLINDER ADDRESS BELOW MIN. 

1$ ;8R IF NO 

MINCVL(RO).?(RA) .-RESET CYLINDER TO MIN. 

1(RA).MINTRK(R0) ;IS TRACK ADDRESS BELOW MIN. ? 

2$ ;8R IF NO 

MINTRK(R0).1 (RA) .'RESET TRACK. TO MIN. 

(RA),MINSEC(R0) ;IS SECTOR ADDRESS BELOW MIU. ? 
3$ .-BR IF NO 

MINSEC(RO),(RA) .-RESET SECTOR TO MIN. 



.-LOOK FOR M/>XIMll1 LIMITS AND END Of SEQUENTIAL ADDRESSING 

3S: CI>V8 (RA).MAXSEC(RO) .-IS SECTOR ADDRESS AT MAXIMUM ? 

6LE Al :8R IF NO 

Move MINSEC(RO>,(RA) .-RESET SECTOR ADDRESS 

INC8 KRA) .-INCREMENT TO NEXT TRACK ADDRESS 

000130 A$: CMPe 1 (RA) ,MAXTRK(RO) ;IS TRACK ADDRESS OVER MAXIMUM ' 

8LE 5f .-8fi IF NO 

M0V8 MINSEC(RO),(RA) .RESET SECTOR ADDRESS 

000001 M0V8 MINTRK(R0),1(RA) .-RESET TRACK ADDRESS 

INC 2(RA) .-INCREMENT TO NEXT CYLINDER ADDRESS 

00012A 5S: CMP 2(RA) .MAXCYL(RO) .-IS CYLINDER ADDRESS OVER MAXIMLW ^ 

Bit 6$ ;8R IF NO 

ADD #2.(SP) .-ADJUST RETURN TO RESET DISK ADDRESS PARAMETERS 

6$. RfS PC .-RETURN 



CZRMbeO KM05/^/? PFRf EXER 

i>ia:n program 



1 

1 

3 

5 

6 

7 

8 

9 
10 
11 
12 
13 
K 
15 

16 020316 06000A 

17 020320 105760 

18 02032A 001023 

19 020326 126037 

20 C2C33A 001017 

21 020336 105760 

22 0203A2 001010 

23 02034A 126037 
2A 020352 001004 
25 

26 
27 

28 020354 026064 

29 020362 001021 

30 020364 126064 

31 020372 001015 

32 020374 111404 

33 020376 016046 

34 020402 160416 

35 020404 005004 

36 020406 062704 

37 020412 005316 

38 020414 002374 

39 020416 005726 

40 020420 020504 

41 020422 003401 

42 C20424 010405 

43 020426 000207 
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SEO 010'. 



000136 

000134 001424 
000132 

000130 001426 



000124 
000130 



000134 



000400 



THIS ROUTINE IS USED TO CALCULATE AND CHECK THE WORD COUNT FOR THE 
DRIVE THAT IS TO DO A DATA TRANSFER ON THE MAXIMUW TRACK OF THf MAXIMUM 
CYLINDER. IF THE CALCULATED MAXIMUM WORD COUNT, EXCEEDS THE DESIRED WORD 
COUNT (CONTENTS OF R5), THEN THE DESIRED WORD COUNT IS CHANGED, SO THAT 
THE WORD COUNT WILL NOT CAUSE A TRACK OVERFLOW DURING THE TRANSFER. 
CALL: 

MOV *CP8,R0 ;DP8 ADDRESS 

MOV #P0INTER,R4 /POINTER TO SECTOR STORAGE ($SEC OR tNSEC) IN DP8 
JSR PCCHKWC ;CALL CHECK WORD COUNT ROUTINE 

RETURN .-RETURN WITH R5 CONTAINING THE DESIRED WORD COUNT 

RO = 0P8 ADDRESS BEFORE CAILING THE ROUTINE 

R4 = POINTER TO SECTOR STORAGE BEFORE C/.'LING THE ROUTINE 

R5 - DESIRED WORD COUNT BEFORE CALLING THE ROUTINE 



CHKWC : 



000002 
000001 1$: 
2$: 

3$: 



4S: 



ADD 

TST8 

BNE 

CMP8 

BNE 

TST8 

BNE 

CMP8 

BNE 



CMP 

BNE 

CMP8 

BNE 

M0V8 

MOV 

SUB 

CLR 

ADD 

DEI 

BGE 

TST 

CMP 

6LE 

MOV 

PTS 



R0.R4 

MINSEC(RO) 

2$ 

MAXSEC(RO) 
2$ 

MINTRK(RO) 
1$ 

MAXTRK(RO) 
IS 



MAXCYL(RO) 
4$ 

MAXTRK(RO) 
4$ 

fR4),R4 
MAXSEC(RO) 
R4,(SP) 
R4 

*256..R4 

(SP) 
3$ 

(SP)* 
R5.R<. 
4S 

R4,R5 

PC 



; POINT TO SECTOR STORAGE POINT IN DPS 
.•ALLOW SPIRAL RD/WRT ? 
' BR I F NO 

.StCLMT .-ALLOW SPIRAL RD/WRT ? 

;8R IF NO 

.-ALLOW SPIRAL RD/WRT ? 
'BR IF NO 

,TRKLMt .-ALLOW SPIRAl RD/WRT ? 

;8R IF NO 

.-WHEN SPIRAL RD/WRT IS ALLOWED. THEN CHECK 

;T0 MAKE SURE YOU DO NOT SPIRAL OVER MAXIMLfl 

.•TRACK ON MAXIMUM CYLINDER 
.2(R4) ;0N MAXIMlfl CYLINDER ? 

;8R IF NO 
.1(R4) ;0N MAXIMlfl TRACK ? 

;8R IF NO 

;GET STARTING SECTOR ADDRESS 
.-(SP) .-GET MAXIMLH SECTOR 

;G£T NUM3ER SECTORS TO BE XFERD 
.-CLEAR R4 

.-ADD 1 SECTOR OF WORDS TO R4 

.-DONE ALL SECTORS YET ? 

.-8R IF NO 

.•RESTORE STACK 

;T00 MANY WORDS FOR TRACK ? 

'BR IF NO 

•YES. CHANGE WORD COUNT 
.RETURN 



CZRMUeO RM05/3/2 PERf EXER 
riAIN PROGRAM 

1 
2 
3 
4 
5 
6 
7 

8 020430 0105A6 

9 020A32 105760 000026 

10 020A36 001106 

11 020AA0 116060 002136 

12 020AA6 K2760 177701 

13 020A5A 132760 000006 
H 020A62 001007 

15 020A6A 016060 000012 

16 020A72 016060 000010 

17 020500 000A10 

18 020502 00A737 023216 

19 020506 012660 000034 

20 020512 112660 000033 

21 020516 112660 000032 
22 

23 020522 032777 000100 

2A 020530 001051 

25 020532 116060 000112 

26 0205A0 116005 000112 

27 0205AA 116560 002064 

28 020552 122760 000151 

29 020560 001012 

30 020562 122760 000060 

31 020570 00K31 

32 020572 112760 000171 

33 020600 112760 OOOOOA 
34 

35 020606 116060 000113 

36 020614 016060 000114 

37 020622 016060 000116 

38 020630 012760 000400 

39 020636 132760 000001 

40 020644 001403 

41 020646 062760 000002 

42 020654 016060 000020 

43 020662 016060 000020 

44 020670 005460 000004 

45 020674 012605 

46 020676 000207 



flACRO V04.00 4-APR 



ROUTINE TO 
CALL: 

MOV 

JSR 
JSR 
RE 





LODPAR: 


MOV 












BNE 


000027 




M0V8 


000027 




BIC8 


000112 




BIT8 






BNE 


000034 




MOV 


000032 




MOV 






BR 




1$: 


JSR 






MOV 






M0V8 






MOVB 


160424 


2$: 


BIT 






BNE 


000024 




MOVB 






MOVB 


000002 




MOVB 


000002 




LMP8 






BNE 


000027 




CMP8 






BEQ 


000002 




MOVB 


000024 




MOVB 


000030 


3$: 


MOVB 


000010 




MOV 


000012 




MOV 


000022 




MOV 


000024 




BIT8 






BEQ 


00002^ 




ADD 


000004 


4S: 


MOV 


000110 




MOV 






NEG 






MOV 






RTS 



N 8 
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' THE PREVIOUSLY SELECTED PAPAMETER VALUES 



SEQ OK'. 



*DP8.R0 
PC.GENPAR 
PC. LODPAR 



DPS ADDRESS 

GENERATE THE PARAMETERS 

LOAD THE PARAMETERS JUST GENERATED 



R5,-(SP) 
$PACK(RO) 
4$ 

$RMCS1(R0).$PREVO(R0) 
#*C76,$PREVO(R0) 



SAVE R5 
•R' OR 'W 
BR IF YES 

.-SAVE CURRENT 
STRIP GO. AND 



COMMAND FOR THE DRIVE ? 



PARAMETERS 
IE BITS 



*6.SNCODE(R0) ;SEE IF NEXT OPERATION IS READ OR WRITE 
1$ ;8* IF EITHER 

$CYL(R0),$PREVA*2(R0) ;SAVE STARTING 
$SEC(R0).$PREVA(R0) ;SAVE STARTING 
2$ 

PC.READDR ;GET THE 

(SP)*.$PREVA*2(R0) 
(SP)*.$PREVA*1(R0) 
(SP)+.$PREVA(R0) 



CYLINDER 

SECTOR AND TRACK 



DECREMENTED SECTOR AND TRACK ADDRESSES 
CYLINDER ADDRESS 
TRACK ADDRESS 
SECTOR ADDRESS 



#SW06,aSUR .-SWITCH 6 SET ? 

4$ ;8fi IF SET 

$NCODE(RO),$CODE(RO) .'LOGICAL CODE FOR OPERATION 
$NC0DE(R0),R5 ;LOAD R5 FOR USE AS TABLE 
C0MT8L(R5).$C0riND(R0) .-COMMAND CODE 
*WCKD.$COMND(R0) ;IS NEW COMMAND A 

3$ ;8R IF NO 

*60,$PREV0<R0) .WAS PREVIOUS COMMAND /, WRITE DATA ? 
4$ ;8R IF YES 

#RDDAT,$CariND(RO) .-CHANGE WRITE CHECK TO READ DATA COMMAND 

*4,$C0DE<R0) .-CODE NLWBER CHANGED TO READ DATA 



INDEX 
WRITE CHECK DATA ? 



$NPATC(RO),$PATTC(RO) 
$NSEC(RO),$SEC(RO) 
$NCYL<RO).$CYL(RO) 
*256.,$SSEC<R0) 
#1.$C0DE<R0) 
4S 

#2.$SSEC<R0) 
$WRDL{RO).$WCNT(RO) 
SWRDL(RO).$HLDWC(RO} 



$WCNT(RO) 
(SP)+,R5 
PC 



PATTERN CODE 

TRACK AND SECTOR ADDRESSES 
.CYLINDER ADDRESS 
INITIAL VALUE OF SECTOR SIZE 
HEADER OPERATION ? 
8« IF WT 
ADD HEADER SIZE 

;GET WORD COUNT AND 
.•HOLD WORD FOR 'RELBUF' ROUTINE 



MAKE IT 2'S COMPLEMENT 
RESTORE R5 
RETURN 



CZRMUBO RM05/^/2 PERF ExER 
MAIN PROGRAM 
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1 

2 
3 

5 
6 








7 


020700 


016111 


000002 


8 


020704 


001402 




9 


020706 


005721 




10 


020710 


000773 




11 


020712 


000207 




12 








13 








U 








15 








16 








17 








18 








19 








20 








21 


020714 
020714 


010146 




22 


020716 


012701 


000144 


23 


020722 


060001 




24 


020724 


004737 


023216 


25 


020730 


021126 




26 


020732 


001023 




27 


020734 


122761 


M7777 


28 


020742 


001002 




29 


020744 


005726 




30 


020746 


000403 




31 


020750 


122661 


000003 


32 


020754 


001013 




33 


020756 


122761 


^77777 


3A 


020764 


001002 




35 


020766 


005726 




36 


020770 


000413 




37 


020772 


122661 


000002 


38 


0?0776 


001003 




39 


021000 


000407 




40 


021002 


005726 




41 


C21004 


005726 




42 


021006 


062701 


000004 


43 


021012 


00571 1 




44 


021014 


100407 




45 


021016 


000742 




46 


021020 


005737 


001472 


47 


021024 


001006 




48 


021026 


012737 


1 77777 


49 


021034 


062766 


000002 


50 


021042 
021042 


012601 




51 


021044 


0002C7 





ROUTINE TO COMPRESS A LIST 
CALL : 

MOV #ADDRS,R1 
JSR PC.CMPRES 
RETURN 



001 342 



CMPRES: MOV 
6EQ 
TST 
BR 

1$: RTS 



2(R1).(R1) 
IS 

(R1 ) ♦ 

CM'-'RES 

PC 



:COMPRESS LIST STARTING AT THIS ADDRESb 



COMPRESS THE TA8LE IN R1 
8R WHEN ZERO FOUND 
INCREMENT R1 

CONTINUE COMPRESSING TA8LE 
RETURN 



ROUTINE TO DETERMINE IF THE ERROR IS AT A LOCATION ON THc DISK, DEFINED 
IN THE BAD SECTOR TABLE FOR THE DRIVE. 
CALL : 



SPOTCK: 



000003 



000002 3$: 



JSR PCSPOTCK 
RETURNl 
RETURN2 



ERROR AT AN ADDRESS IN TASlE 

NO TABLE ENTRY FOR ERROR ADDRESS OR 

PARAMETER 'MESSAGE' IS 0 





MOV 


D 1 _ / CD ^ 






MOV 




IrMLNtncNI rUH OAU ocLiUK l/wLt 
Ann Tur oi nr^'c ctaotiaia: Anr\Dccc 




ADD 




i>: 


1 CD 


PC.READDR 






\.nr 


/Q , \ / CD 1 A 


nAi Tuc CAMC rvi fiunco ^ 
UW IfiC 3^nC LlLJ'wCK 








BDAAiru ir kmT 
oNANLn 1 r NU 1 






#•1 ^(R1) 


>ALL BAD TRACKS "* 




BNE 


2S 


-BR IF NO 




TST 


(SP)* 


■ADJUST STACK AND 




BR 


3$ 


-GO CHECK SECTORS 


2S: 


CMP8 


(SP)*,3(R1) 


-CO»*»ARE THE TRACK ADDRESS 




BNE 


6S 


-BR IF IT IS NOT EQUAL 


3$: 


CMP8 


#-1,2(R1) 


;ALL BAD SECTORS ? 




BNE 


4S 


•BR IF NO 




TST 


(SP)* 


•ADJUST STACK AND 
•CHECK 'MESSAGE' 




BR 


8$ 


4S: 


CMP8 


(SP)*.2(R1) 


; COMPARE THE SECTOR ADDRESS 




BNE 


7$ 


;8R IF NOT EQUAL 
; CHECK 'MESSAGE* 




BR 


8S 


5$: 


TST 


(SP)* 


;CLEAR OFF THE STACK 


6$: 


TST 


(SPM 


; INCREMENT THE STACK POINTER 


7$: 


ADD 


#4.R1 


;G0 TO THE NEXT LOCATION IN THE TABLE 




TST 


(Rl) 


.•EMPTY ENTRY OR TERMINATOR ? 




BMI 


9$ 


:8R IF YES 




BR 


IS 


;TRY NEXT SECTOR 


8S: 


TST 


MESSAGE 


:PRINT THE ERROR ANYWAY ? 




BNE 


10S 


'BR IF NOT 




MOV 


#-1.8ADSEC 


•SET THE INDICATOR FOR THE IDENTIFICATION 


9$: 


ADD 


#2.2(SP) 


.•INCREMENT THE RETURN 


10$: 








MOV 


(SP)*.R1 


.•;POP STACK INTO Rl 




RTS 


PC 


.•RETURN 
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MAIN PROGRAM 



jEO 0106 



2 
3 
u 

5 
6 

7 
6 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
?0 
21 
22 
23 
24 
25 
26 
27 
29 
31 
32 
33 
3^ 
35 



36 
57 
38 
39 
AO 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



.S8TTL ERROR MESSAGE GENERATION ROUTINES 



021046 
021054 
021056 
021062 
021070 
021072 
021076 
021102 
021104 
021110 
021114 
021120 
C21124 



021126 
021126 
021130 
021132 
021134 
021140 
021144 
021146 
021154 
021160 
021164 
021170 
021174 
021176 
021204 
021210 
021214 
021220 
021222 
021224 
021230 
021232 
021236 
021240 
C21242 



032777 
001402 
104401 
032777 
001405 
104414 
104414 
000410 
104414 
104414 
004737 
104414 
000207 



.•PRINT LINE 1 OF ERROR MESSAGE 
;'HH:MM:SS' 



002000 160100 LINE1 
160064 1$: 



001 1 76 
020000 



001203 
001203 

001203 
001203 
024750 
075555 



2$: 
3$: 



BIT 

BEO 

TYPE 

BIT 

BEO 

DISPlV 

DISPLV 

BR 

UISPLV 
DISPLV 
JSR 

DISPLY 
RTS 



#suiio,aswR 

1S 

.J.3ELL 

#SW13,SSWR 

2$ 

.SCRLF 
.$CRLF 
%\ 

.SCRLF 

.JCRLF 

PC.STIME 

,8LNKS1 

PC 



SWITCH 10 SET ? 

8R IF NOT 

RING THE BELL 

INHIBIT TYPEOUT ? 

BR IF NOT 

CR-LF 

CR-LF 

EXIT 

CR-LF 

CR-LF 

TYPE THE TIME 
TYPE 1 BLANK 

RETURN I TYPE DESCRIPTION 



PRINT LINE 2 OF ERROR MESSAGE 

•PRSNT COMIANO = XXXX PREV C0M*1AND = XXXX' 

ERROR AT BAD TRACK/SECTOR* 
'DRV RMCSl RMCS2 RMDSI RMERI RMMR2 RMER2 RMEC1 RMEC2' 
•RMWC RMBA RMOA RMAS RMLA RM08 RMMR1 RMDT' 
•RMSN RMGF RMOC RMCC STATUS* 
•RMBAE RMCS3' (RH70 ONLY) 
•BUS ADDRESS OR WORD COUNT NOT CONSISTENT' 
'RMBA = XXXXXX RMWC = XXXXXX' 

•SUFFER ADR = XXXXXX WRD CNT = XXXX ACTUAL NHBR WRDS XFRD XXX' 
LINE2 



010346 








MOV 


R3.-(SP) 


.-PUSH R3 ON STACK 


010446 








MOV 


R4,-(SP) 


.PUSH R4 ON STACK 
;PUSH R5 ON STACK 


010546 








MOV 


R5,-{SP) 


104414 


001203 






DISPLY 


.SCRLF 


CR-LF 


005037 


021266 






CLR 


4S 


CLEAR MESSAGE ADDRESS STORAGE 


005004 








CLR 


R4 


•WORKING REGISTER 

•ADDRESS OF 'PRSNT COMMAND - ' MSG 


012737 


073666 


021266 




MOV 


*LJN2C,4$ 


116004 


002136 






M0V8 


SRMCSl (RO) .fi4 


•GET THE OPCODE 


042704 


177701 






BIC 


#*C76.R4 


•SAVE ONLY SIGNIFICANT BITS 


004737 


021222 






JSR 


PCJ$ 


•TYPE THE FIRST MNEMONIC 
•SEE IF MNEMONIC ENTRY FOUND 


005737 


021272 






TST 


5$ 


001440 








BEO 


LJNE2A 


;9R IF NOT 


012737 


073706 


021266 




MOV 


#LIN2P.4$ 


; ADDRESS OF 'PREVS COMMAND = ' MSG 


116004 


000027 






M0V8 


$PREV0{R0),R4 
#-C76.R4 


•PREVIOUS OPERATION CODE 


042704 


177701 






BIC 


;SmVE only SIGNIFICANT BITS 


004737 


021222 






JSR 


PCJ$ 


•TYPE THE PREVIOUS MNEMONIC 


000426 








BR 


LJNE2A 


;CONTINUe 


005005 






1$: 


CLR 


R5 


; CLEAR THE TABLE INDEX 


126504 


002072 




2$: 


fMP8 


0PT8L{R5).R4 


;L00K FOR THE OPCODE 


001405 






BEO 


3S 


•BR WHEN OPCODE COUf^T EOUALS OPCODE 


105765 


002072 






TST8 


0PT8L(R5) 


;LOOK FOR END OF TABLE 


100402 








8MI 


'<$ 


;8R IF END 


005205 








INC 


R5 


; INCREMENT THE POINTER 


000770 








BR 


2$ 


; CONTINUE - NOT END OF TAB E 



^ZRMUBO RM05/^/2 PERr EXER f*IACRO VOA.OO A-APR-81 

FRROR MESSAGE GENERATION ROUTINES 

57 021 24<. 006305 3$: ASL 

58 021246 006305 ASL 

59 021250 006305 ASL 

60 021252 012737 002112 021272 MOV 

61 021260 060537 021272 ADD 

62 021 26A 10A4K DISPLY 

63 021266 000000 4$: .WORD 

64 021270 10AAU DISPLY 

65 021272 000000 5$: .WORD 

66 021 27A 000207 RTS 
67 

o8 021276 005737 0013A2 LINE2A: TST 

69 021302 001 AOA BEQ 

70 021 30A 10AA1A 001203 DISPLY 

71 021310 10AA1A 073727 DiSPLY 

72 02131A 10AA1A 0012C3 LINE2e: DISPLY 

73 021320 10AA1A 073?««0 DISPLY 
7A 02132A 10AA1A 075555 DISPLY 

75 021330 0137A6 001 32A MOV 

76 021 33A 00A737 023176 JSR 

77 021?A0 10AA1A 07555A DISPLY 

78 021 3AA 012705 073600 MOV 

79 021350 00A737 021532 JSR 

80 021 35A 032777 OOOOAO 157572 BIT 

81 0:i362 001031 BNE 

82 021 36A 10AA1A 0733A2 DJSPLY 

83 021370 012705 073622 MOV 
8A 021 37A 00A737 021532 JSR 

85 021A00 10AA1A 073AA0 DJSPLY 

86 021 AOA 012705 0736AA MOV 

87 021 A10 00A737 021532 JSR 

89 021 A1 A 0137A6 001 23A MOV 

90 021 A20 0A2716 003777 BJC 

91 021 A2A 022726 030000 CMP 

92 021 A30 001006 BNE 

93 021A32 lOAAlA 073510 DISPLY 
9A 021 A36 012705 073660 MOV 

95 021 AA2 00A737 021532 JSR 

97 021 AA6 032760 000100 000016 1$: BIT 

98 021A5A 001A22 BEQ 

99 021A56 0160A6 000020 MOV 

100 021 A62 066016 0021 AO ADD 

101 021 A66 006316 ASL 

102 021A70 066016 000006 ADD 

103 021A7A 022660 0021A2 CMP 
10A 021500 001A10 BED 

105 021502 lOAAlA 072665 DISPLY 

106 021506 lOAAlA 001203 DISPLY 

107 021512 00A737 02162A JSR 

108 021516 00A737 022236 JSR 

109 021522 ?$: 
021522 012605 MOV 
021 52A 01260A MOV 
021526 012603 MOV 

no 021530 000207 RTS 

111 021532 0125A6 3$: MOV 

IT? 021 53A 060016 ADD 
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SEO 0107 



R5 .-SHIFT INDEX 

R5 .-SHIFT THE INDEX 

R5 .-SHIFT THE INDEX 

#MNTBL.5$ .-ADDRESS OF ASCII TEXT 1A6LE 

R5,5$ .-ADD THE INDEX 
.-TYPE IT 

0 .-ADDRESS Of 'PRESENT' OR 'PREVIOUS* MESSAGE 

.-TYPE THE OPERATION MNEMONIC 

0 .-ADDRESS OF MESSAGE 

PC .-RETURN TO MAIN ROUTINE 

BADSEC .-PRINT THE BAD SECTOR LINE ? 

LINE2B ;8R IF NOT 

.SCRLF ; CR-LF 

.LIN2S .-ERROR ADDRESS DEFINED AS BAD AREA 

, SCRLF .-CR-LF 

,DH14 .-STANDARD RM RCGISTER HEADER 

BLNKSl 'TYPE 1 BLANK 

UNJT,-(SP) -PUT THE DRIVE NUMBER ON THE STACK 

PC.LINDEC .-TYPE DRIVE NUMBER 

.eLNKS2 ;TYPE 2 BLANKS 

#DT1A,R5 .-REGISTER INDEXES 

PC. 3$ .-PRINT THE REGISTERS 

#SW05,aSWR .-PRINT THE OPTIONAL REGISTERS ? 

1$ ;8R IF NOT 
.DH15 

*DT15,R5 ;SFCOND DATA LINE 

PC. 3$ ; PR INT THEM 
.DH16 

#DT16,R5 .-THIRD DATA LINE 

PC,3S .-PRINT THE REGISTERS 

$CPUOP.-(SP) .-CHECK THE CPU 'RH) TYPE 

#*C17A000.(SP) .-LEAVE THE CPU BITS 

#30000. (SP)* ;SEE IF RH70 

IS ;BR IF NO 
.DH17 

#DT17.R5 .-OPTIONAL FOURTH DATA LINE 

PC. 3$ .-PRINT TME REGISTERS 
*eiT6.STATUS(R0) ;DATA ERROR ? 

2S ;8R IF NOT 

SWRDL(RO).-(SP) .-TRANSFER WRD CNT 

SRMWC(RO).(SP) .-ADD REMAINING WORD COUNT 

(SP) .-CONVERT TO AN BYTE INCREMENT 

$8UF(R0).(SP) .-BUFFER STARTING ADDRESS 

(SP)*.SRMBA(RO) .-CORRECT BUFFER ADDRESS ? 

2$ ;8R IF YES 

,EMA6 .-'BUS ADDRESS AND WORD COUNT ARE NOT 'ONSISTENT' 

.SCRLF ; CR-LF 

PC.LINE3D .-PRINT LINE 3D OF ERROR MESSAGE 

PC.LINEA .-PRINT LINE A OF ERROR MESSAGE 

(SP) + .R5 .-.-POP STACK INTO R5 

(SP)*.R4 .-.-POP STACK INTO R4 

(SP)*,R3 .-.-POP STACK INTO R3 

PC .-RETURN TO ERROR PROCESSING ROUTINE 

(R5)*.-(SP) .-PUT THE REGISTER INDEX ON THE STACK 

RO.(SP) .-ADD DRIVE'S 1A8LE ADDRESS 
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113 
iU 
115 
116 
117 
118 
119 
120 
121 
122 
123 
12A 
125 
126 
127 
128 
129 
130 
131 
132 
133 
13A 
135 
136 
137 
138 
139 
UO 
K1 
U2 
143 
U4 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 



021536 
021542 
021546 
021550 
021554 
021556 
021 560 
021564 



021566 
021572 



021574 
021 600 



021602 
021606 
021612 



021614 
021620 



021624 
021632 
021634 
021640 
021644 
021650 
021654 
157 021660 
^58 021664 
159 021670 
160 
161 
162 
163 

164 021672 

165 021676 

166 021702 

167 021706 

168 02171? 
'69 C21716 



01 7646 
004737 
005726 
104414 
005715 
001 365 
104414 
000207 



104414 
000517 



000000 
023144 

075554 



001203 



073763 



104414 074001 
000514 



004737 022'' 40 
104414 001203 
000207 



004737 022140 
000137 022172 



0327^7 
001416 
104414 
016046 
004737 
104414 
016046 
004737 
104414 
0002C7 



000040 1 57322 

074140 
002142 
023144 
074(47 
002140 
023144 
001203 



104414 074041 

016046 000012 

004737 023176 

104414 075554 

104414 074160 
005046 



4S: 



MCV 
JSR 

TST 

OISPLV 

TST 

BNE 

DJSPLY 
RTS 



a(SP).-(SP) 

PC.LINOCT 

(SP)* 

.8LNKS2 

(R5) 

3$ 

.SCRLF 

PC 



.•VALUE 
.•TYPE IT 

.•CORRECT THE SMCK POINTER 

; TYPE 2 BLANKS 

;AT END OF LINE ? 

;8R IF NOT 

; CR-LF 

.•RETURN 



.•PRINT LINE 3 OF E.'<ROR MESSAGE 

.••ERROR AT CCC TT 55 PREV ADR = CCC TT 5S* 



I INE3: 



DISPlY 
BR 



.LINM3 
LIN3.1 



;LINE 3 ENTRANCE 
.•FINISH PRINTOUT 



.■PRINT LINE 3A Of ERROR MESSAGE 
.••START CYL = CCC END CYL = CCC 



LINfcSA: 



DISPLY 
BR 



.IINN3 
LIN3.1 



.•LINE 3A ENTRANCE 
.■FINISH ERROR LINE 



.-PRINT LINE 38 OF ERROR MFSSAGE 
.••START CYL = CCC END CYL = CCC 



LINE 38: 



JSR 

DISPLY 
RTS 



PC.LIN3.3 
.SCRLF 

PC 



ACTUAL CYL = CCC 
;LINE 38 ENTRANCE 



.PRINT LINE 3C OF ERROR MESSAGE 
.-•START CYL = fCC END CYL = CCC 



ACTUAI CYL = CCC TRK = TT' 



LINE3C: 



JSR 
JMP 



PC.LIN3.3 
LIN3.4 



.-LINE 3C ENTRANCE 
.'FINISH MESSAGE 



.PRINT LINE 3D OF ERROR MESSAGE 
;*RMBA = XXXXXX RMWC = XXXXXX* 



LINE 3D: BIT 
BEQ 



1$: 



#sw05.asuR 

IS 

DISPLY ,LINB3 

MOV $RM3A(R0).-(SP) 

JSR PC.LINOCT 

DISPLY .LINU3 

MOV $RMWC<RO>.-(SP) 

JSR PC.LINOCT 

DISPLY .SCRLF 

RTS PC 



.•PRINT LINE 3E OF ERROR MESSAGE 
.••START CYL = CCC START TRK = 



LINE3E: DISPLY 
MOV 

JSR 

DISPLY 
DJSPLr 
CLR 



.LINS3 

$CYL(RO).-(SP) 

PC.LINDEC 

.8LNKS2 

.LINST3 

-(SP) 



SWITCH 5 SET ? 
BR IF IT IS 
•RMBA = • 

SUFFER ADDR REG CONTENTS 
CONVERT TO OCTAL AND TYPE IT 
• RMWC = ' 

WORD COUNT REGISTER CONTENTS 
CONVERT TO OCTAL AND TYPE IT 



TT START SEC = SS' 

.••START CYl = ' 
.•MOVE CYL TO STACK 
;TYPE IT IN DECIMAL 
;TYPF 2 BLANKS 
; 'START TRK = • 
.•CLEAR STACK 
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SCO 0109 



170 

171 

17c' 

173 

174 

175 

176 

177 

178 

179 

180 

131 

'82 

183 

18A 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

200 

201 

202 

206 

20/ 

208 

209 

210 

211 

212 

213 

2U 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

250 

231 

^^52 



021720 
021 724 
021730 
021 734 
021740 
021 742 
021746 
021752 
021756 



021760 
021 766 
021770 
021 774 
022000 
022004 
C22010 
022014 
022020 
022024 
022050 



022052 
022056 
022042 
022046 
022052 
022056 
022062 
022066 
022072 
022076 
022102 
022104 
022110 
022114 
C22120 
022122 
022126 
022152 
022156 



022140 
022144 
022150 
022154 
022160 
022164 
022170 



1160''6 
004 757 
104414 
104414 
005046 
116016 
004757 
104414 
000207 



004757 
004757 
104414 
004757 
104414 
004757 
104414 
016046 
004757 
104414 
005046 
116016 
004757 
104414 
005046 
116016 
004757 
104414 
000207 



104414 
016046 
004757 
104414 
016046 
004757 
000207 



00001 1 
025176 
075554 
074174 

000010 
025176 
001205 



025216 
025176 
075776 
023176 
074017 
025176 
074022 
000054 
025176 
075776 

000055 
025176 
074017 

000052 
025176 
001205 



074041 
000054 
023176 
074055 
0021 72 
025176 



wove 

JSR 

DISPLV 

DISPLV 

CLR 

M0V8 

JSR 

DISPLV 
RTS 



$TRK(RO).(SP) 

PC.LINOEC 

.8LNKS2 

.LINSS5 

-(SP) 

$SEC(RO),(SP/ 

PC.LJNDEC 

,$ChLF 

PC 



TRACK TO STACK 
TYPE IT IN DECIMAL 
TYPE 2 BLANKS 
•START SEC = • 
CLEAR STACK 
SECTOR ADOR TO STACK 
TYPE IT IN DECIMAL 



.•PRINT LINE 5F OF 
.••RMDA = XXXXXX 



ERROR MESSAGE 
RMCA - XXXXXX' 



052777 000040 157166 
001420 

104414 074151 

016046 002144 

004757 02^144 

104414 075554 

104414 074120 

016046 002172 

004737 023144 

104414 001205 
000207 



LINE5F: BIT #SW5.aSUR 

BFQ 1$ 

DISPLY ,LINDA5 

MOV $ftMDA(RO\-(SP) 

JSR PC.LINOCT 

DISPLV .8LNKS2 

DISPLV .LINCA5 

MOV $RMDC{RO).-(SP) 

JSR PC.LINOCT 

DISPLV .$CRLF 

IS: RTS PC 



SWITCH 5 SET ? 
8R IF NOT 
•RMDA = • 

PUT SECTOR/TRACK ADDRESS ON THE STACK 

TYPE IT 

TYPE 2 BLANKS 

• RMDC = ' 

PUT DESIRED CVL INDER ADDRESS ON THE STACK 
TYPE IT 



.-•CCC IT SS PREV ADR = CCC TT SS' 



JSR 


PCREADDR 


DECREMENT TRACK At^i) SECTOR ADDRESS 


JSR 


PCLINDEC 


TYPE IT IN DECIMAL 
PRINT • T' 


DISPLV 




JSR 


PC.LINDEC 


TYPE TRACK IN DECIMAL 


DISPLV 


.s 


PRINT • S' 


JSR 


PC.LINDEC 


•TYPE SECTOR ADDRESS 
■PRINT 'PREV ADDR* 


DISPLV 


AlfJP5 


MOV 


SPREVA*2(R0).-(SP) .-PREVIOUS CYLINDER 


JSR 


PCLJNDEC 


•TYPE IT IN DECIMAL 
•PRINT • T* 


DISPLV 


,T 


CLR 


-(SP) 


■MAKE ROOM ON THE STACK 


M0V8 


JPREVA»1(R0).(SP) .-PREVIOUS TRACK ADDRESS 


JSR 


PCLINDEC 


■TYPE IT IN DECIMAL 
•PRINT • S' 


DISPLV 


.S 


CLR 


-CSP) 


;MAKE ROOM ON THE STACK 


M0V8 


$PREVA(RO).(SP) 


•PREVIOUS SECTOR DDRESS 


JSR 


PC.LINOEC 


;TYPE IT IN DECIMAL 


DISPLV 


.ICRLf 




RTS i 


PC 





.••START CYL = CCC END CVL = CCC 



LIN3.3: DISPLV ,LINS5 ;LlNE 

MOV $PREVA«-2(R0),-(5P) 

JSR PC.lINDEC 

DISPLV .LINEN3 

MOV $RMDC(RO).-(SP) 

JSR PC.LINDEC 

RTS PC 



•58 t 5C' ENTRANCE 
.•PREVIOUS CYLINDER 



TYPE IT IN DECIMAL 
PRINT 'END CVL' 
PRESENT CYLINDER 
TYPE IT IN DECIMAL 
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StO 0110 



233 
234 
235 
236 
237 
238 
259 
240 
241 
242 
245 
2^4 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
2S6 
257 
258 
259 
260 
261 
262 
263 
26^ 
265 
266 
267 



•ACTUAL Cri = CCC 



TR< 



IT 



022172 
022176 
022202 
022206 
022212 
022216 
022220 
022224 
022230 
022234 



022236 
022244 
022246 
022252 
022256 
022262 
022266 
022272 
022276 
022302 
022306 
022312 
022314 
022320 
022324 



104414 
013746 
042716 
004737 
104414 
005046 
116016 
004737 
104414 
000207 



032760 
001427 
104414 
016046 
004757 
104414 
016046 
004737 
104414 
016046 
166016 
006216 
004737 
104414 
000207 



07A071 
101066 
010000 
0231 76 
074110 

002145 
023176 
001203 



L1N3.4: 



DISPLV 
MOV 
BIC 
JSR 

DJSPLY 
CLR 
M0V8 
JSR 

DISPLV 
RTS 



.LINA3 

CYLNDR.-(SP) 

*8IT12.(SP) 

PC.LJNDEC 

.LJNT3 

-(SP) 

$RMDA*1 (RO) . 
PC, LJNUEC 
.$CRLF 

PC 



(SP) 



.-PRINT LINE 4 OF ERROR MESSAGE 
; 'BUFFER ADR = XXXXXX WRD CNT 



.•PRINT 'ACTUAL' 
.-ACTUAL CYLINDER 
.•CLEAR THE FORMAT BT 
.•TYPE IT IN DECIMAL 
.-PRINT TRACK 
; CI EAR STACK WORD 

;PUT TRACK ON STA(K 
.-TYPE IT IN DECIMAL 



XXXA ACTUAL NMBR WRDS XFRD XXX' 



0001 OC 000016 LINE4; 

074210 
000006 
023144 
074226 
000020 
0231 76 
074242 
002142 
000006 



023176 
001203 



BIT 


*8IT06.$TATUS(R0) ;DATA ERROR ? 


BEO 


1$ 


BR If NOT 
'PRINT BUFFER* 


DISPLY 


,LINM4 


MOV 


$8UF(R0).-(SP) , 
PC.LINOCT 


BUFFER ADDR ON STACK 


JSR 


CONVERT TO OCTAL & PRINT 
PRINT 'WRD CNT' 


DISPLY 


,LINS4 


MOV 


$WRDL(RO).-(SP) , 


WORD LENGTH SIZE (WORD COUNT) 


JSR 


PC.LINDEC 


■TYPE IT IN DECIMAL 
"•ACTUAL W«R WRDS XFRD = ' 


DISPLY 


.LINX4 


MOV 


$R^BA(RO).-(SP) , 


•VALUE IN BUFFER ADDR REGISTER 


SUB 


$eUF(RO),(SP) 


■SUBTRACT STARTING ADDRESS 


ASR 


(SP) 


•CONVERT INTO A WORD COWT 


JSR 


PC.LINDEC 


;TYPE IT IN DECIMAL 


DISPLY 


.$CRLf 


; CR-LF 


RTS 


PC 


■RETURN 



1$: 



.-PRINT LINE 5 OF ERROR MESSAGE 

••GOOD DATA = XXXXXX BAD DATA = XXXXXX 



SECT PCS = XXX' 



268 022326 


104414 


074274 




LINE5: 


DISPLY 


,LIND5 


269 022332 


162760 


000002 


002142 




SUB 


#2.$RMBA(R0) 


271 022340 


013746 


001234 






MOV 


$CPU0P--(SP) 

**C 1 74000. (SP) ; 


272 022344 


0'.2716 


003777 






BIC 


273 022350 


022726 


030000 






CMP 


#30000. (SP)* 


274 022354 


001012 








BNE 


1$ 


27S 022356 


162760 


000004 


002142 




sie 


#4,$RMBA(R0) 


276 022364 


032760 


004000 


002210 




BIT 


/lf8iTl1.$RMCS3(R0) 


277 022372 


001403 








BEO 


1$ 


278 022374 


162760 


000002 


002142 




SUB 


#2,SRMBA(R0) 


279 022402 


017046 


002142 




1S: 


MOV 


a$RMBA(RO),-<SP) 


283 022406 


004737 


023144 






JSR 


PCLINOCT 


284 022412 


104414 


074310 






DISPLY 


.LINB5 


285 022416 


016046 


002160 






MOV 


$R«DB(RO).-(SP) ; 


286 022422 


004737 


023144 






JSR 


PC.LINOCT 


287 022426 


016046 


002140 






MOV 


$RMWC(RO).-(SP) ; 


288 022432 


066016 


000020 






ADD 


SWRDL(RO),(SP) ; 


289 022436 


005046 








CLR 


-(SP) 


290 022440 


016046 


000022 






MOV 


$SSEC(RO).-(SP) ; 


291 022444 


004737 


031710 






JSR 


PC.SDIV 


292 022450 


012616 








MOt/ 


(SP)*,(SP) 
.LINP5 


293 022452 


1044U 


074325 






DISPLY 



MRINT 'GOOD DATA* 
BACK THE ADDRESS UP 
CHECK THE CPU (RH) TYPE 
LEAVE THE CPU BITS 
SEE IF RH70 
BR IF NO 

BACKUP THE BUFFER POINTER 

.-SEE WHICH WORD HALF DIDN'T COMPARE 
IF EO, EVEN HALF DIDN'T COMPARE 
BACKUP THE BUFFER POINTER AGAIN 

.-'GOOD' DATA - AT THE BUFFER LOCATION 

TYPE IT 

PRINT 'SAD DATA' 
BAD DATA FROM BUFFER 
TYPE IT 

WORD LENGTH ON STACK 
MAKE INTO A POSITIVE NU«ER 
UPPER DIVIDEND TO ZERO 
SECTOR SIZE ON THE STACK 
DIVIDE WORDS XFERED BY SFCTOR SIZE 
MOVE REMAINDER UP THE STACK 
PRINT 'SECT POS' 
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294 
295 
296 
297 
298 
299 
500 
501 
502 
507 



508 
309 
310 
311 
312 
313 
3U 
515 
516 
517 
518 
519 
520 
321 
522 
525 
324 
325 
326 
527 
528 
329 
350 
551 
532 
333 
354 
555 
556 
557 
338 
339 
340 
341 
342 
545 
344 
345 
346 
347 
348 
349 



022456 
022462 
022466 



022470 
022470 
022474 
022500 
022504 
022510 
022514 
022520 
022524 
022530 
022534 



022556 
022542 
022546 
022552 
022556 
022562 
022566 
022572 
022576 



022600 
022604 
022610 



022612 
022616 



022620 
022624 



022626 
022632 



004737 
104414 
000207 



104414 
015746 
004757 
104414 
015746 
004757 
104414 
104414 
104414 
000207 



104414 
016046 
004757 
104414 
104414 
016046 
004737 
104414 
000207 



104414 
104414 
000207 



104414 
000411 



104414 
000406 



104414 
000414 



023176 
C01205 



074542 
101066 
025144 
075554 
101070 
025144 
075554 
075557 
001205 



074575 
002202 
023144 
075554 
074405 
002204 
025144 
001205 



074A17 
001205 



0744 52 



074417 



074501 



jSR 

DISPLY 
RTS 



PC.LINDEC 

•SCRLf 

PC 



;TrPE THE POSITION 



.•PRINT LINE 5A OF THE ERROk MESSAGE 
.•'HEADER FROM ERROR SECTOR XXXXXX XXXXXX 



XXXXXX XXXXXX' 



LINE5A; 
2$: 



5$: 



DISPLY .LINS5 

MOV CrcNPR.-(SP) 

JSR PC.LINOCT 

DISPLV .8LNKS2 

MOV CYLNDR*2.-(SP) 

JSR PC.LINOCT 

DISPLV .8LNKS2 

DISPLY .LINX5 

DISPLY .SCRLF 

RTS PC 



•HEADER CONTENTS OF ERROR SECTOR' 

HEADER POSITION 

TYPE IT 

TYPE ? BLANKS 

HEADER POSITION *2 

TYPE IT 

TYPE 2 BLANKS 

APPENDING INFO \/2M77 



.•PRINT LINE 58 OF ERROR MESSAGE 
.••RMEfl = XXXXXX RMEC2 = XXXXXX' 



LINE58: DISPLY 
MOV 
JSR 

DISPLY 
DISPLY 
MOV 
JSR 

DISPLY 
RTS 



.LINEP5 ;'RMEC1 = ' 

$RMEC1 (RO).-(SP) .-PUT REGISTER CONTENTS ON THE STACK 

PC.LINOCT ;TYPE IT 

,8LNKS2 .'TYPE 2 BLANKS 

,LJNE05 ;• RMEC2 = ' 

$RMEC2(R0) ,-(SP> ;PUT REGISTER CONTENTS ON THE STACK 

PC.LINOCT .-TYPE IT 

.SCRLF 

PC .-RETURN 



.•PRINT LINE 6 OF ERROR MESSAGE 
.•'SECTOR IS ECC CORRECTABLE' 



LINE6: 



DISPLY 
DISPLY 
RTS 



.LINB6 
.SCRLF 

PC 



;ECC CORRECTABLE 



.•PRINT LINE 6A OF THE ERROR MESSAGE 
.•'SECTOR READ CORRECTLY AT OFFSET N' 



LINE6A: DISPLY .LJNC6 
BR LIN6.1 



.•PRINT 'HEAD CORRECTLY AT OFFSET N* 
;TYP£ THE REST OF THE LINE 



.•PRINT LINE 68 OF THE ERROR ""ESSAGE 
.••SECTOR IS ECC CORRECTABLE AT OFFSET N' 



LINE68: DISPLY .LI^e6 
BR LIN6.1 



.-PRINT 'SECTOR IS ECC CORRECTABLE 



.•PRINT LINE 6C UF THE ERROR MESSAGE 
; 'CORRECTED ON NTH RETRY' 



LINE6C: DISPLY .LING6 
BR LIN6.2 



.- 'CORRECTED ON NTH RETRY' 
.-TYPE THE REST OF THE l INE 
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SEO Oil. 



550 








IV 








352 








553 022634 


104414 


074531 




354 022640 


000411 






355 








356 








357 








358 022642 


006301 






559 022644 


016137 


002420 


022654 


360 022652 


104414 






3o1 022654 


000000 






362 022656 


104414 


001203 




363 022662 


000207 






564 








565 








366 








367 022604 


005046 






368 022666 


113716 


001 331 




369 C22672 


004737 


023176 




370 022676 


104414 


074517 




371 022702 


104414 


001203 




372 022706 


000207 






373 








374 








575 








376 








384 022710 


104414 


074643 




385 022714 


016046 


000072 




386 022720 


004737 


023"' 76 




387 02272^ 


104414 


074661 




388 022730 


016046 


000056 




389 022734 


004737 


0231 76 




390 022740 


104414 


074671 




391 022744 


012746 


000060 




392 022750 


060016 






393 022752 


004737 


037122 




394 022756 


004737 


032234 




395 022762 


104414 


07W06 




396 022766 


016046 


000064 




397 022772 


004737 


0231 76 




398 Q22776 


104414 


074716 




399 023002 


012746 


000066 




40C 023006 


060016 






401 023010 


004737 


037122 




402 023014 


004737 


032234 




403 023020 


104414 


001 203 




404 023024 


032777 


100000 


156122 


405 023032 


001401 






406 023034 


000000 






407 023036 


000207 






408 








409 








410 








411 








419 023040 


104414 
012746 


074603 




420 023044 


000052 





.•PRINT LINE 6D OF THE ERROR MESSAGE 
.-'UNCORRECTABLE AFTER N RETRIES* 



_INE6D: 



DISPLY 
BR 



.LINU06 
LIN6.2 



.••uncorrectable after n retries* 

.-FINISH 



;TYPE the offset VALUE IN MICRO-INCHES 



LIN6.1: ASL 
MOV 
DISPLY 

It: .WORD 
DISPcY 
RTS 



R1 

0F*^T8L(R1).1$ 

0 

.SCRLF 

PC 



;RETRY COUNT TYPEOUT 



LIN6.2: CLR 
M0V8 
JSR 

DISPLY 
DISPLY 
RTS 



-(SP) 

RETRV*1,(SP) 
PC.LINDEC 
.LINR6 
.SCRLF 

PC 



.■DOUBLE THE OFFSET TABI E INDEX 
.•ADDRESS OF OFFSET POSITION MESSAGE 

.•OFFSET VALUE 



CLEAR STACK 
RETRY COUNT 
TYPE IT IN DECIMAL 
•RETRY* 



.•PRINT LINE 7 OF THE ERROR MESSAGE 

.•'TOTAL ERR0RS:XXX WOFL:X WRDS URI TN:XXXXXXX 



R0FL:0 WRDS READ:XXXXXXX* 



LINE7: 



1$: 



DJSPLY 


.LJN7T 

$T0TAL(R0).-(SP) 


MOV 


JSR 


PC.LINDEC 


DISPLY 


.LIN70X 


MOV 


$WTOFL(RO).-(SP) 


JSR 


PC.LINDEC 


DISPLY 


.LIN7X 


MOV 


*$WRITN,-{SP) 


ADO 


RO.(SP) 


JSR 


PC,$D82D 


JSR 


PC.SSUPRL 


DISPLY 


.LIN70R 


MOV 


$RDOFL(R0).-(SP) 


JSR 


PC.LINDEC 


DISPLY 


.LIN7R 


MOV 


#SREAO.-{SP) 


ADD 


RO.(SP) 


JSR 


PC. $0820 


JSR 


PC.SSUPRL 


DISPLY 


.SCRLF 


BIT 


#SWl5.aSWR 


BEO 


IS 


HALT 




RTS 


PC 



.-TOTAL ERRORS 

;T0 STACK 
;TYPE IT IN DECIMAL 
.-PRINT 'WTOFL* 

;;PUSH $WT0FL(R0) ON STACK 
.•TYPE IT IN DECIMAL 
.-PRINT 'WRDS WRITN' 
.-ADDRESS OF LOW WORD ON STACK 

.•CONVERT 
.PRINT 

.•PRINT 'ROFL' 

.-.PUSH $RD0FL(R0) ON STACK 
;TYPE IT IN DECIMAL 
.-■WRDS READ* 
.-LOW WORD ADDRESS 

.-CONVERT 
.•PRINT IT 
; CR-LF 

.-SEE IF 'HALT ON ERROR* - SWITCH 15 
;8R IF NOT 
.•SWITCH 15 HALT 



;PRINT LINE 7A OF ERROR MESSAGE 

.-•TOTAL SEEKS-XXXXX TOTAL MISFOS ERR = XXX 



TOTAL SKI- XXX* 



LINE7A: DISPLY .LIN7P 

MOV t$POSIT.-(SP) 



.•'TOTAL SEEKS 
.•TOTAL SEEKS 



023050 


060016 




ADD 


DA / C D ^ 


DEVICE TASLt ADDRESS 


023052 


00A737 


037122 


1 CO 


rL,»DocD , 


rAiLi\/CDT TUC CCC^ TAlllLlT 

LUIMVtHF IMt ^tcK CUUNI 


023056 


004737 


032234 




or • c 1 iDOi 


DD f M T T T 

rHJIMI J 1 

■ TATAI MTCDAC COD - • 


023062 


10AA1 A 






.LiNrH , 


023066 


0160A6 


000102 


MAI i 

MOV 


CMrCOA/DA\ ./CDI 

•/•IJ brUlKU/ \ br; 


•TATAl CDDADC 

1 Trt Jl I'M L/tLJrlAL 

• * TATAI f CDD - • 
1 U 1 ML i CKK - 


C23072 


00A757 


0231 76 


1 CD 


r(. , L J Nut L 


023076 


074621 


D I brL Y 




023102 


016046 


AAA1 A A 
0001 UO 


MAW 

nUV 




• rriMvyPOT B do i kit ft 


Uc J 1 uo 








PC LINDFC 


• TYPE IT IN DECIMAL 


023112 


1044K 


001203 


DISPLY 


.$CRLF 


; CR-LF 


023116 


032777 


100000 156030 


BIT 


#SUl5,aSWR 


;SEE IF HALT ON ERROR - SWITCH 15 SET 


0231 2A 


001401 




BEO 


1$ 


;8R IF NOT 


023126 


000000 




HALT 




;SWITCH 15 HALT 


023130 


000207 


IS: 


RTS 


PC 





104414 074732 
004737 021126 
000207 



LINES: 



DISPLY 

JSR 

RTS 



^^RMUBO RM05/3/2 PERF EXER MACRO V04.00 4-APR-81 01 

EftRuR MESSAGE GENERATION ROUTINES 

422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
h35 
436 
437 
438 

439 023132 

440 023136 

441 023142 
«i42 
443 
444 
445 
446 
447 
<.48 

449 023144 

450 023150 

451 023154 

452 023160 

453 023166 

454 023170 

455 023172 

456 023174 
457 
458 
459 
460 
461 
462 
463 
464 

465 023176 

466 023202 

467 023206 

468 023212 

469 023214 



J 9 

:42:23 PAGE 22-7 



SEQ 0113 



.•PRINT LINE 8 OF THE ERROR MESSAGE 
.••DIFFERENT ERROR DURING RETRY' 



,LIN8M 
PC,LINE2 
PC 



OCTAL TYPEOUT ROUTINE 
CALL : 

MOV NUM.-(SP) 
JSR PC.LIN0C7 
RE TURN 



016646 000002 
004737 033160 
012637 023170 
062737 000005 
104414 
000000 
012616 
000207 



023170 



LINOCT: 



1$: 



MOV 
JSR 
MOV 
ADD 

DISPLY 
.WORD 
MOV 
RTS 



2(SP),-<SP> 
PC.$SB20 
(SP)*Jt 
#5..1$ 



(SP)*,(SP) 
PC 



.•PRINT LINE 2 OF ERROR MESSAGE 



;PUT THE NUMBER ON THE STACK 



PUT NUMBER IN PROPER LOCATION ON STACK 
CONVERT THE NUfBER TO OCTAL 



GET THE ADDRESS OF 
ADDRESS THE LAST 6 
TVPE IT 
ADDRESS 

CORRECT THE STACK 
RETURN 



THE ASCII STRING 
ASCII DIGITS 



ROUTINE TO CONVERT THE INPUT NUMBER TO DECIMAL ATiD TYPE IT WITH 
LEADING ZERO SUPRESSION 
CALL: 

MOV NUM.-(SP) ;PUT THE NUMBER ON THE STACK 

JSR PC.LINDEC 
RETURN 



016646 000002 
004737 033(30 
004737 032234 
012616 
000207 



LINDEC; 



MOV 

JSR 
JSR 
MOV 
RTS 



2(SP),-(SP) 
PC.$SB2D 
PCSSUPRL 
{SP)*,(SP) 
PC 



SET UP STACK FOR CONVERT 

CONVERT IT TO DECIMAL 

TYPE IT (WITH LEADING ZEROS SUPRESSED) 

RESTORE STACK POINTER 



:Z«MUBO R^OS/?/? PERF EXER 
GENERAL SUPPORT SUSROU TINES 



? 
3 

5 
6 
7 
8 
9 
10 

12 
13 

H 023216 

15 023222 

16 023226 

17 023232 

18 023236 

19 023242 

20 023250 

21 023256 

22 0252(A 

23 023270 
2A 023272 

25 025276 

26 023300 

27 02330A 

28 023306 

29 0233U 

30 023320 

31 023322 

32 023350 

33 023336 
3A 0233A2 
35 

36 
37 

38 0233AA 

39 023352 
AO 023360 
Al 02336A 
A2 023372 
A3 023376 

44 023402 

45 023406 

46 023412 

47 023416 

48 023422 

49 023430 

50 023436 
51 

52 023440 

53 023444 

54 023446 

55 023454 

56 023460 

57 023464 



MACRO V04.00 



K 9 
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SEO 0114 



.S8TTL GENERAL SUPPORT SUBROUTINES 









DECREMENT THE 


SECTOR-TRALK ADDRESS 








•CALL: 
















MOV 


/TDPB.RO ;DP8 ADDRESS 










JSR 


or OC Af\f\D 

PL ,RtADDR 












RETURN 












■ON RETURN THE 


cTAr^ rnwTAiMC tuc 
olML^ LUIMIMilXi 1 Pit 


c ni 1 nu I Mr: • 










Z. ( CD 1 - 














C V J" i — 














f CP) - 






UU4 f 5f 


' JHO 


1 


^EADDR: 


ICO 


or rzp Tl MT 


f;P T ADDQPCC 1 IMITt; 
OC 1 r^UVnC OO L i n J 1 D 




nnnnn/k 
uuuuuo 






CI n 






U 1 OO 1 O 


UUUUJO 






MOV 


A CD ) f CD ) 




UUDUoo 


UUUUUO 






n R 


CD) 


n PAD CTAr^ FHR CPfTnD 


UUjUOO 


nnnnn/. 






ri R 


A f CD) 

*♦ » Or 1 , 


ri PAP CTArK FHP IRAfK 


1 1 AHAA 

1 louoo 




000006 






9fVrwn\J\\j f t^\Or f g 




1 lOUOO 




000004 




MOVQ 






U 1 oUoo 


nnpi 7P 


000002 




MOV 




rvi INDFR ADDRf-'S^ 


UUJf OO 




1$: 


TST 


AC CP) 


O C L 1 \J 


UU 1 "tUj 








BEQ 




i3rViniLr" i r Ow 


1 Uj jOO 








DEC8 


6(SPJ 


■DECREMENT ONE SECTOR 










BR 


4S 


•BRANCH TO EXIT 


UUjf OO 




2$: 


TST 


4(SP) 


•ALSO ON TRACK 0 ? 


001406 








BEQ 


3$ 


•BRANCH IF SO 


115766 


001424 


000006 




M0V8 


SECLMT,6(SP) 


rLAST SECTOR 


105366 


000004 






DECS 


4(SP) 


; DECREMENT ONE TRACK 


000410 








BR 


4$ 


;£XIT 


115766 


001424 


000006 3$: 


M0V8 


SECL«T,6(SP) 


rLAST SECTOR 


115766 


001426 


000004 




nova 


TRKLMT,4(SP) 


;6ET LAST TRACK 


005566 


000002 






DEC 


2(SP) 


;DECREMENT ONE CYLINDER COUNT 


000207 




4S: 


RTS 


PC 


; RE TURN 



.•ROUTINE TO CHECK FOR KWll-L OR KWll-P CLOCKS 



012737 


\77777 


001312 


CKCLK: 


MOV 


#-1,CLKfLG 


012757 


y77777 


001310 




MOV 


#-1 .PCLOCK 


013746 


000004 






MOV 


£RRV£C,-(SP) 


012737 


023440 


000004 




MOV 


irCKCLKl,£RRVEC 


005777 


155700 






TST * 


aSLKCSR 


005037 


001312 






CLR 


CLKFL6 


005037 


001310 






CLR 


PCLOCK 


013701 


001302 






MOV 


SLPVECRI 


012721 


025074 






MOV 


irCL0CK,(R1)* 


012711 


000300 






MOV 


#300, (RI) 


012777 


174575 


155650 




MOV 


*-1667. .a$LKCS8 


012777 


000131 


155640 




MOV 


#131,a$LKCSR 


000441 








BR 


CKCLK3 


012716 


023446 




CKCLKl : 


MOV 


*1$,(SP) 


000002 








RT] 




012737 


023510 


000004 


1$: 


MOV 


#CKCLK2.ERRVEC 


005777 


155624 






TST 


S$LKS 


005037 


001312 






CuR 


CLKFLG 


01 3701 


001 306 






MOV 


sllvecri 



CLEAR CLOCK AVAILABILITY FLAG 

CLEAR KW11-P CLOCK AVAILABILITY FLAG 

.•PUSH ERRVEC ON STACK 

SET UP VECTOR FOR CLOCK CHECK 

CHECK FOR KWll-P 

SET ClOCK AVAILABILITY FLAG 

SET KW11-P CLOCK FLAG 

KU11-P VECTOR ADDRESS 

SET UP KU11-P VECTOR 

PSU - PRI 6 

LOAD COUNTER BUFFER WITH 16.67 
SET CLOCK - CNT UP, lOUS. CONT INT 



.•SETUP RETURN ADDRESS 

.•CHANGE ERROR VECTOR TO CHECK FOR KUll-L 

.•LOOK FOR KW11-L 

.•SET CLOCK FLAG 

; KWll-L VECTOR ADDRESS 
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58 025470 

59 023474 

60 023500 

61 023506 
62 

63 023510 

64 023514 

65 023516 

66 023522 

67 023S26 

68 023530 
o9 023534 

70 023536 

71 025542 

72 023546 



012721 025074 

012711 000300 

012777 000100 
000415 



012716 
000002 
104401 
105737 
001402 
000137 
000000 
000137 
012637 
000207 



023516 

076422 
001150 

031612 

003634 
000004 



155576 



CICCLK2: 
1$: 



2S: 

CKCLK3: 



MOV 
MOV 
MOV 
BR 

MOV 

RTI 

TYPE 

TST8 

BEQ 

JMP 

HALT 

JMP 

MOV 

RTS 



#CLOCtC, (R1 >♦ 
#300. (R1) 

#ioo.a$LKS 

CKCLK5 

#1$.(SP) 

.NEDCLK 

$AUT06 

2$ 

$GET42 

START 

(SP)*,ERRVEC 
PC 



;SET UP ICUll-L VECTOR 

;PSW - PRI 6 

;SET KW11-L INTERRUPT 



SETUP RETURN ADDRESS 

•P OR L CLOCK MUST BE ON SYSTEM' 

RUNNING IN AUTO MODE 

BR IF NOT 

ABORT PROGRAM 

HALT 

TRY AGAIN 

RESTORE THE ERROR VECTOR 



CZRMUBO RM05/5/2 PERF EXER 
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1 
2 
3 
4 
5 
6 
7 
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SEQ 01l« 



ROUTINE TO DISPLAY STATISTICS FOR ASSIGNED DRIVES 
CALL : 

JSR PC.STATPR 
RETURN 



025550 
0235:D 
023552 

8 02355A 

9 023560 

21 023562 

22 023566 

25 023572 
24 023574 
^5 023576 

26 023602 

27 023604 

28 023612 

29 C23614 

30 023620 

31 023622 

32 023626 

33 023630 
023630 
023632 

34 02363^ 
35 

36 
37 
38 
39 
40 
41 
42 

43 023636 

44 023640 

45 023642 

46 023646 

47 023650 

48 023652 

49 023656 

50 023660 

51 023662 
52 

53 
54 
55 
56 
57 

58 023664 

59 023670 

60 023672 
61 

62 
65 
64 



010046 
010446 

005757 001530 
001423 

104401 001203 
004737 025664 
005004 
006504 

016400 002044 
006204 

136457 040142 001550 
001402 

004757 025674 
005204 

020427 000010 
001562 

012604 
012600 
000207 



STATPR: 



2t: 



3$: 



4S: 



5$; 



MOV 


RO.-(SP) 


MOV 


R4,-(SP) 


TST 


ASNLST 




5$ 


TYPE 


.$CRLF 


JSR 


PC.SHDTYP 


CLR 


R4 


ASL 


R4 


MOV 


BLKADRCRJ.RO 


ASR 


R4 


BITS 


ATA8IT{R4), ASNLST 


BEQ 


4$ ; 


JSR 


PC.SDCTAL 


INC 


R4 


CMP 


R4.#8. 


BNE 


3$ 


MOV 


CSP)*,R4 


MOV 


CSP)*,RO 


RTS 


PC 



PUSH RO ON STACK 

PUSH R4 ON STACK 
ANY DR'VES ASSIGNED 
BR IF NOT 
CR-LF 

TYPE THE HEADING 

CLEAR THE DRIVE INDEX 

CHANGE TO INDEX WORDS 

GET THE DRIVE'S BLOCK ADDRESS 

RESTORE R4 

;IS THIS DRIVE ASSIGNED ? 
8R IF NOT 

TYPE THE PERFORMANCE SUMMARY 
INCREMENT THE INDEX 
FINISHED ? 
8R IF NO 

;POP STACK INTO R4 



010046 
010446 

004737 025664 

005004 

111004 

004757 025674 
012604 
012600 
000207 



ROUTINE TO TYPE ^HE PERFORMANCE SUMMARY (STATISTICS) FOR AN INDIVIDUAL 



;DP8 ADDRESS 



SAVE RO 
SAVE R4 

TYPE THE HEADING 
CLEAR R4 FOR DRIVE NUMBER 
DRIVE MJMBER 
TYPE THE STATISTICS 
RESTORE R4 
RESTORE RO 
RETURN 

TYPE THE HEADER FOR THE DRIVE PERFORMANCE SUMMARY TYPEOUT 
CALL: 

JSR PC. SHOT fP 
RETURN 



.•DRIVE. 






.-CALL: 








MOV 


#DP8.R0 




JSR 


PC, SUMARY 




RETURN 




SUMARY: 


MOV 


RO.-(SP) 




MOV 


R4.-(SP) 




JSR 


PC.SHDTYP 




CLR 


R4 




M0V8 


<R0).P4 




JSR 


PC.SDETAL 




MOV 


fSP)*,R4 




MOV 


(SP) ♦.RO 




RTS 


PC 



004537 052444 

076164 

000207 



SHDTYP; 



JSR 

SUMHD 

RTS 



R5.TYPRI4 
PC 



;TYPE THE PERFORMANCE SUMMARv 
.-CALL: 

MOV *DRIVE,R4 



TYPE SUMMARY HEADER 

HEADER 

RETURN 



; DRIVE NUMBER 
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SEO Oil 



65 












MOV 


#DPB,RO 


66 










* 


RETURN 




67 
















OO 














,65$ 


02367A 


10AA01 


023702 






TYPE 




023700 


OOOAOA 








BR 


64$ 










;;65$: 


.ASCIZ 


<CRLF>/TIME / 




025712 








64$: 




PC.$TIME 


69 


023712 


00A737 


02^750 






JSR 


70 
71 










;TYPE 


LINE 2 OF 


SUMMARY 


72 


023716 


10AA01 


001203 




TYPE 


,$CRLF 


73 


023722 


10AA01 


075625 






TYPE 


,LINTMSG 


7A 


023726 


010AA6 








MOV 


R4,-(SP) 




023730 


10AA03 








TYPOS 






023732 


002 








.BYTE 


2 




023733 


000 








.BYTE 


0 


75 


02373A 


10AA01 


075555 






TYPE 


.8LNKS1 


76 


0237A0 


10AAC1 


075621 






'YPE 


,DASH 


77 


C237AA 


10AA01 


075555 






TYPE 


,8lnk;si 


78 


023750 


012737 


076051 


02401 A 




MOV 


*$RM03,2$ 


79 


023756 


12276A 


OOOOOA 


040046 




CMP8 


*4,DRVTYP(R4) 


80 


02376A 


00U12 








6EQ 


1$ 


81 


023766 


012737 


07604A 


024014 




MOV 


#$RM02,2$ 




\JCJI 1 


12276A 


000005 

WWW 


040046 

V~ W~ w 




CMPB 


#5,DRVTYP(R4) 


83 


02A002 


00U03 








BEQ 


IS 


8A 


02A0OA 


012737 


076056 


024014 




MOV 


#$RM05,2$ 


85 


02A01 2 


10AA01 






Iff. 

1 »: 


T woe 

TYPE 




86 


02A0U 


000000 






2$: 


.WORD 


0 


87 


02A016 


10AA01 


075617 






TYPE 


, COMMA 


88 
89 


02A022 


10A401 


024030 






TYPE 


.67$ 




02A026 


00040A 








BR 


66$ 



024040 

90 024040 

91 024044 

92 024050 

93 024054 

94 024056 

95 024062 

96 024066 

97 024072 

98 024076 
99 

100 

101 024102 
024106 

024126 

102 024126 
024132 

103 024134 

104 024140 
024144 

024164 



016046 
004737 
004537 
000003 
104401 
104401 
004737 
104401 
004737 



104401 
000407 



000104 
033130 
032340 

076477 
075555 
032472 
075555 
032522 



024110 



;;67$: 
66$: 



.ASCIZ / PASS / 



;DP8 ADDRESS 



;;TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 



;TYPE ELAPSED TIME 



; CR-LF 

;TYPE 'DRIVE' 

;;SAVE R4 FOR TYPE OUT 

;;G0 TYPE— OCTAL ASCII 

;;TYPE 2 DIGIT(S> 

.-.-SUPPRESS LEADING ZEROS 

.-TYPE 1 BLANK 

.-TYPE '-' 

;TYPE 1 BLANK 

; ADDRESS OF RM03 MESSAGE 

;IS DEVICE AN RMC3 ? 

-BR IF YFS 

; ADDRESS 'of RM02 MESSAGE 
;IS DEVICE AN RM02 ? 
'BR IF YES 

•ADDRESS OF RM05 MESSAGE 
.-TYPE THE DRIVE TYPE MESSAGE 
.•MESSAGE ADDRESS HERE 
.•TYPE •/ 

;;TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 



MOV $PASSC (RO). -(3PJ ;PUT THE PASS COUNT ON THE STACK 

JSR PC.$S82D .-CONVERT IT 

JSR R5.REPLZ .-TYPE IT 

.WORD 3 .-TYPE 3 DIGITS 

TYPE .PERIOD .-TYPE '.' 

TYPE .BLNKSI ;TYPE 1 BLANK 

JSR PC.TYMBA .-TYPE MBA SERIAL Nl/CER 

TYPE .BLNKSI .-TYPE 1 BLANK 

JSR PC.TYPACK ;TYPE PACK SERIAL NlfCER 



.-TYPE LINE 3 OF SUMMARY 
TYPE .69$ 
BR 

•ASCIZ 



016046 000056 
104405 

104401 076477 
104401 024146 
000407 



;;69$: 
68$: 



;;TYPE ASCIZ STRING 
68$ .-.-GET OVER THE ASCIZ 

<CRLF><LF>/WT OFLOW / 



70f : 



MOV $WTOFL(R0),-(SP) .-;SAVE $UTOFL(RO) FOR TYPEOUT 

TYPDS .-;G0 TYPE— DECIMAL ASCII WITH SIGN 

TYPE .PERIOD .-TYPE 

TYPE .71$ .-.-TYPE ASCIZ STRING 

BR 70$ .-.-GET OVER THE ASCIZ 

.ASCIZ / WRDS WRITN / 
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SEO 0118 



105 024164 

106 024166 

107 024172 
lOa 024176 
109 024202 
110 

111 

'12 024206 
024212 

024230 
"3 024230 

024234 
'14 024236 
''5 024242 

024246 



024266 
024266 

117 C24270 

118 024274 

119 024300 

120 024304 
121 

122 

123 024310 
024314 



024326 

124 024326 

125 024330 
^2t 024334 

127 024340 

128 024344 
137 

138 



010046 
062716 
004737 
004737 
104401 



104401 
000406 



0*6046 
104405 
104401 
104401 
000407 



010046 
062716 
004 737 
004737 
'04401 



104401 
000404 



010046 
062716 
004737 
004737 
104401 



000060 
037122 
032150 
076477 



0242K 



000064 

076477 
024250 



000066 
037122 
032150 
076477 



024316 



000052 
037122 
032150 
076477 



-39 


024350 


104401 


024356 




024354 


000405 






024370 






140 


024370 


104401 


024376 




024374 


000404 






024406 






141 


024406 


016046 


000074 




024412 


104405 




142 


024414 


104401 


076477 


143 


024420 


104401 


024426 




024424 


000404 






024436 






144 


024436 


CI 6046 


000076 




0?44';2 


104405 




145 


024444 


104401 


076477 


146 


024450 


1C4401 


024456 




024454 


000403 





MOV RO.-(SP) 
ADD »$WR1TN,(SP) 

JSR PC.SDB2D 
JSR PC.SUPRS 
jyPE .PERIOD 

;TVPE LINE 4 Of SUMMARY 



;;73$: 
72$: 



;;75S: 
74S: 



TYPE ,73$ 

BR 72S 

.ASCIZ <C'<JLF>/RD OFLOW 

MOV $RDOFL(R0).-(SP) 
TYPDS 

TYPE .PERIOD 

TYPE ,75$ 

BR 74$ 

.ASCIZ / URDS READ 

MOV RO.-CSP) 

ADD ♦$PFAD,(SP) 

JSR PC.$DB2D 

JSR PCSUPRS 

TYPE .PERIOD 



GET ADDRESS OF DP8 

POINT TO LOb NUMBER OF WRDS WRITTEN 

CONVERT DECIMAL NUMBER 

SUPPRESS LEADING ZEROS AND TYPE 

TYPE 



;;TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 
/ 

;;SAVE $RDOFL(RO) FOR TYPEOUT 
;G0 TYPE— DECIMAL ASCII WITH SIGN 
TYPE 

.-TYPE ASCIZ STRING 
;GET OVER THE ASCIZ 



GET ADDRESS OF DP8 

POINT TO LOW NUMBER OF WRDS READ 

CONVERT DECIMAL NUMBER 

SUPPRESS LEADING ZEROS AND TYPE 

TYPE 



.-TYPE LINE 5 OF SUMMARY 



;;77$: 
76$: 



TYPE .77$ , 

BR 76$ * 

.ASCIZ <CRLF>/SEEKS / 

MOV RO.-<SP) 

ADD #$POSIT.(SP) 

JSR PC.$DB2D 

JSR PC.SUPRS 

TYPE .PERIOD 



.-TYPE LINES 6 AND 7 Of SUMMARY 



;;TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 



PUT $POSIT ON THE STACK 

POINT TO LOW NUMBER Of SEEK COUNT 

CONVERT DECIMAL NlfBER 

SUPPRESS LEADING ZEROS AND TYPE 

TYPE 



;;79$: 
78$: 



;;8l$: 
80$: 



;;83$: 
82$; 



:;85$: 



TYPE 
BR 

.ASCIZ 

TYPE 
BR 

.ASCIZ 

MOV 

TYPDS 

TYPE 

TYPE 

BR 

.ASCJZ 

MOV 

TYPDS 

TYPE 

TYPE 

BR 

.ASCJZ 



.79$ 
^8$ 

<CRLf >/ERRORS:/ 

.81$ 
80$ 

<'CRLf>/SOfT / 



;;TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 



;;TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 



$SOf T(RO).-<SP) ;;SAVE $SOfr(RO) FOR TYPEOUT 

;;G0 TYPE— DECIMAL ASCII WITH SIGN 
.TYPE 

.-.-TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 



.PERIOD 
.83$ 
82$ 

/ HARD / 



$HARD(RO>.-(SP) ;;SAVE $HARD(RO) FOR TYPEOUT 

;;60 TYPE— DECIMAL ASCII WITH SIGN 
.-TYPE '.' 

;;TVPE ASCIZ STRING 
;;GET OVER THE ASCIZ 



.PERIOD 
.85$ 
§4$ 

/ SKI / 



ZRMiJBO RM05/5/2 PERf EHE« 
ENERAL SUPPORT SUBROUTIMES 







COO TOO 


147 0?AA6A 


016046 


024 A 70 


104405 




K8 024472 


104401 


076477 


149 024476 


104401 


024504 


024502 


000404 




024514 






ISO 024514 


016046 


00010? 


024520 


104405 




151 024522 


104401 




^ 024526 


104401 


024534 


024532 


000404 




024544 






^53 024544 


016046 


000072 


^56 024550 


166016 


000074 


024554 


1 6601 6 


000076 


U<:43oU 


1 AAfM A 

1 oou 1 0 




024564 


166016 


000102 


157 024570 


104405 




158 024572 


1 04401 


076477 


159 024576 


10440^ 


001203 


160 024602 


000207 





»WCRO V04.00 4-APR-81 



84S: 

MOV 

TYPDS 

TrPE 

TrPE 

BR 

;;87t: .ASCJ2 
86S: 

•10V 

TVPDS 

TYPE 

TVPE 

BR 

;;89I: .ASCJ2 
MOV 

sue 

SU9 

SlB 

SU9 

TYPDS 

TYPE 

^YPE 

RTS 



C 10 
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$SK](RO).-(SP) 

.PERJOD 
.87$ 
86S 
/ MJSP / 

$MISPO(R0),-{SP) 

.PERIOD 

.89$ 

88$ 

/ OTHER / 

$TOTA?'(R0).-(SP) 
$S0FT(R0),(5P) 
SHARD (RO).(SP) 
$SK](RO).<SP) 
$MISPO(R0).{SP) 

.PERIOD 
.SCRLF 

PC 



.'SAVE SSKHRO) FOR TVPfOuT 

;G0 TYPE— DECIMAL ASCI/ WITH SIGN 

TVPE '.' 

.•TYPE ASCIZ STRING 
;G£T OVER THE ASCI 2 



;;SAVt $MISPO(R0) FOR TYPEOUT 
;G0 TYPE— DECIMAL ASCII WITH SIGN 
TYPE 

.•TYPE ASCJ2 STRING 
;G£T OVER THE ASfI2 

.•CALCULATE NlfCER OF OTHER ERROR 
SlBTRACT $S0FT FROM $TOTAl 
SUBTRACT SHARD FROM STOTAl 
SUBTRACT SCKI FROM STOTAL 
SUBTRACT SMISPO FPQH STOTAL 
;60 TYPE— OECIW. ASCII WITH SIGN 
TYPE 
CR-LF 



7RMUB0 RM05/^/2 PERf E>lER 

fcNERAL SUPPORT SiJ8RO'jTI*4ES 

1 5 

16 



024604 005737 001342 

024610 001006 

024612 026027 00007^. 

024620 103002 

024622 005260 000074 

024626 000207 



D 10 
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ROUTINE TO INCREMENT SSOFT 

NOTE: SSOrT WILL NOT BE INCREMENTED BEVOND 77777 (52767.) 



07777f 



'7 



18 



024630 005737 001342 

C24634 001006 

024636 026027 000076 

024644 103002 

024646 005260 000076 

024652 000207 



077777 









•NOTE: 


SSKI 


WILL NOT BE 


024654 


005737 


001342 


INCS<J: 


TST 


BADSEC 


024660 


001006 






BUE 


3S 


024662 


026027 


000100 077777 




CMP 


SSKI(RO) 


024670 


103002 






BHIS 


3$ 


024672 


005260 


000100 




INC 


SSKKRO) 


024676 


00020? 




3t: 


RTS 


PC 



19 



20 



024700 005737 001342 

C24704 001006 

024706 026027 000102 077777 

024714 103002 

024716 005260 000102 

024722 000207 



024724 005737 00134? 

024730 001006 

024732 026027 000072 077777 

024740 103002 

024742 005260 000072 

024746 000207 



INCSOF: TST BADSEC ;SEE If BAD TRK/SEC INDICATOR SET 

BNE 3S ;8R IF IT'S SET, DON'T INCREMENT COUNT 

CMP $s:)FT(RO), #77777 ;IS SSOFT ALREADY AT MAXIMUM ? 

BHIS 3t ;8R IF IT IS 

INC SSOFT (RO) ; INCREMENT SSOFT 

3S: RTS PC ; RE TURN 

ROUTINE TO INCREMENT SHARD 

NOTE: SHARD WILL NOT BE INCREMENTED BEyOND 77777 (52767.) 

INCHRD: TST BADSEC ;SEE IF BAD TRK/SEC INDICATOR SET 

BNE n ;8R IF IT'S SET, DON'T INCREMENT COUNT 

CMP $HARD(RO). #77777 ;IS SHARD ALREADY AT MAXIMUM ? 

BHIS 3S ;8P IF IT IS 

INC SHARD(RO) .'INCREMFNT SHARD 

3S: RTS PC ;RE1URN 

ROUTINE TO INCREMENT SSKI 



;SEE IF BAD TRK/SEC INDICATOR SET 
.-BR IF IT'S SET. DON'T INCREMENT COIWT 
7777 ;IS SSKI ALREADY AT MAXIMUM ? 
;8R If IT IS 

.•INCREMENT SSKI 

; RE TURN 
ROUTINE TO INCREMENT SMISPO 

NOTE: SMISPO WILL NOT BE INCREMENTED BEYOND 77777 (12767.) 

INCMIS: TST BADSEC ;SEF IF BAD TRK/SEC INDICATOR SET 

BNE 3S ;8R IF IT'S SET. DON'T INCREMENT caWT 

CW SMI 5P0(R0) ,#77777 ;IS SMISPO ALREADY AT MAXIMUM 

BHIS 3S ;8fl IF IT IS 

INC SMJSPO<RO) ; INCREMENT SMISPO 

3$: RTS PC .-RETURN 

ROUTINE TO INCREMENT STOTAL 

NOTE: STOTAL WILL NOT BE INCREMENTED BEYOND 77777 (32767.) 

INCrOT: TST BADSEC ;SEE IF BAD TRK/SEC INDICATOR SET 

BNE 3$ ;8R IF IT'S SET. DON'T INCREMENT COUNT 

CMP STOTAL (R0).#7777^ ;IS STOTAL ALREADY AT MAXIMUM 

BHIS 3S ;8R IF IT IS 

INC STOTAL (RO) .-INCREMENT STOTAL 

3S: RTS PC .-RETURN 
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SEO C12' 



2 
3 
i, 

5 
6 
7 

8 
9 
10 
11 
'2 
13 

IS 
16 
17 
18 
19 
20 
2' 
22 
23 
2^ 
25 
26 
27 
28 
29 
30 



:ROUTINE TO TVPE THE TIME 



024750 
024754 
024756 
024764 
024770 
02W7<, 
02A776 
025002 
025006 
025010 
025014 
025020 
025024 
025026 
025032 
025036 
025042 
025046 
025050 
025054 
025060 
02506A 
025070 
025072 





nn 1 T 1 5 
UU 1 5 1 c 


• T r MC . 

• 1 I ~c . 


TQT 


f 1 K F 1 C 




'JUT UhO 








TC 

3» a 


RP I r MD T 




UUUOUc UcjUc*» 




nuv 




A^^IWF 7 nif^fT^ TO TVPF 
PUT 'HnilR^' niM TMF ^TATr 


ni 17/ «. 
ij 1 ir'*o 






MOW 




AD1 A57 
Uc ' Oc 1 


(\c\f\^L^. 






(Cp) #100 


100. HOURS OR MORE ? 


UUc«»U^ 






Si T 


1 < 


RP IF NO 




UcjUch 




i nit 


2S 




n51 A57 


r>m 7^ft 
UU ' 'jKi 




rMD 

Lnr* 




1000 HOllR^ OR MORF 








PI T 




AR IF NO 


nr>^577 


Uc jUch 






2$ 


TYPE 4 DIGITS 


fVU.777 


\Jjj 1 3U 


< 9 • 


i<;r 


pr 4sr?D 


fOIMVFRT TO DFCIMAl 








J jn 


PS F I M 7 


•TYPE IT 


\J\J\J\AAJ 






m m\JnV 


0 


■NUMBFR OF HOUR DIGITS TO TYPE 




U f OO ' U 










nni TA*. 




MOV 


PC.$S82D 


■PUT 'MINUTES' ON THE STACK 


004737 


033130 




JSR 


; CONVERT TO DECIMAL 


004537 


032334 




JSP 


R5.FILLZ 


;TYPE IT 


000002 






.WORD 


2 


;TYPE 2 DIGITS 


104401 


076670 




TYPE 


, COLON 


013746 


001350 




MOV 


SECOND, -(SP) 


;PUT SECOrJDS ON THE STACK 


004737 


033130 




JSR 


PC,$S82D 


.•CONVERT TO DECIMAL 


004537 


032334 




JSR 


R5.FILLZ 


.-TYPE IT 


000002 






.WORD 


2 


.■TYPE 2 DIGITS 


000207 




3S: 


RTS 


PC 





.-CLOCK HANDLER ROUTINE 



31 


025074 


005337 


001352 




CcOCK; 


DEC 


ONE SEC 


32 


025100 


001027 








BNE 


1$ 


33 


025102 


013737 


001314 


001352 




MOV 


HZ, ONE SEC 


34 


025110 


005237 


001350 






INC 


SECOND 


35 


025114 


022737 


000074 


001350 




CMP 


#60., SECOND 


36 


025122 


001016 








BNE 


1$ 


37 


025124 


005037 


001350 






CLR 


SECOND 


38 


025130 


005237 


001454 






INC 


INTRVL*2 


39 


025134 


005237 
022737 


001 346 






INC 


MINUTE 


40 


025140 


000074 


001346 




CMP 


#60. .MINUTE 


41 


025146 


001004 








BNE 


1$ 


42 


C25150 


005037 


001 346 






CLR 


MINUTE 


43 


025154 


005237 


001344 






INC 


HOUR 


44 


025160 


022737 


000062 


001314 


1$: 


CMP 


#50.. HZ 


45 


025166 


001403 








BEO 


2$ 


46 


025170 


012746 


000020 






MOV 


#16.. -(SP) 


47 


025174 


000402 








BR 


3$ 

#20. .-(SP) ; 
PC.RMTMR 


48 


025176 


012746 


000024 




2$: 


MOV 


49 


025202 


004737 


044254 




3$: 


JSR 


50 


025206 


005737 


001452 






TST 


INTRVL 


51 


025212 


001411 








BEO 


4$ 


52 


025214 


023737 


001452 


001454 




cw 


INTRVL. INTRVL +2 ; 


53 


025222 


001005 








BNE 


4S 


54 


025224 


012737 


1 m77 


001316 




MOV 


#-1. STATIN 


55 


025232 


005037 


001454 






CLR 


INTRVL '•2 


56 


025236 


000002 






4$: 


RTJ 





INCREMENT THE ONE SECOND COUNTER 
8R IF A SECOND NOT COUNTED 
RESTORE THE VALUE 
CaWT THE SECOND 
AT MAXIMlfl ? 
BR IF NOT 

CLEAR THE SECOND'S COUNTER 

COUNT THE PERFORMANCE SUMMARY INTERVAL 

COUNT THE MINUTE 

AT MAXIMI^ ? 

BR IF NOT 

CLEAR THE MINUTE'S COUNTER 

COUNT THE HOURS 

CPU RUNNING a 50H2 ? 

BR IF YES 

16MS ON THE STACK i 60HZ 

20MS ON THE STACK fi 50HZ 
DRIVER TIMER ROUTINE 
DISPLAY THE PERFORMANCE SUMhARY ? 
BR IF NOT 

DISPLAY INTERVAL FINISHED ? 
BR IF NOT 

SET PERFORMANCE SUMMARY DISPLAY FLAG 
CLEAR THE PERFORMANCE INTERVAL COUNTTR 



CZRMUBO RM05/5/2 PERF EXE« 
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2 
3 
i, 
5 
6 
7 
8 
9 
10 

n 

13 
K 
15 
16 

^8 

19 
?0 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
56 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



COMMAND DECODE ROUTINE 
call: 

MOV #1.CFlAG 

JSR PC.KSR 

RETURM 

RETURN2 



025240 
025244 
025246 
025250 
025256 
025262 
025266 
025272 
025276 

C25302 
025304 
025306 
025312 
025314 
025320 
025322 

025326 
025330 
025334 
025336 
025342 
025344 
025350 
025352 
025356 
025360 
025564 
025372 
025374 
025400 
C25402 
025410 
025412 
025416 
025420 
025426 
02';430 
025434 
025436 
025444 
025446 
025454 
025456 
025462 
025464 
025472 



005757 
100375 
104412 
012737 
005037 
104401 
004737 
004737 
104401 

104411 
012605 
005737 
001405 
005737 
001130 
000137 

005205 

122715 

001462 

122715 

001410 

121527 

101111 

121527 

103506 

142715 

122765 

001003 

004737 

000500 

122765 

001003 

004737 

000471 

122765 

001003 

004737 

000462 

122765 

001007 

032777 

001044 

004737 

000447 

122765 

001040 



040140 



000200 

001 340 
001203 
024750 
033226 
076567 



001340 
001530 
003634 

000124 

000101 

000067 

000060 

1 77770 
000124 

026530 

000104 

026330 

000123 

026436 

000127 

000001 

026552 

000122 



<SR: 
KSR1 
'$: 



21: 



^77777 3$: 



^77777 4$: 



U7777 5$: 



^77777 
153500 

V77^7 



6S: 

7$: 
8S: 



TST 
BPL 

SAVREG 
MOV 

CLR 

rypE 

JSR 
JSR 
TYPE 

RDLIN 

MOV 

TST 

BEO 

TST 

BNE 

JMP 

INC 

cMpe 

BEO 

CMP9 

BEO 

CMP9 

BHI 

CMP8 

BLO 

Bice 

CMP8 

BNE 

JSR 

BR 

CMP8 

SNF 

JSR 

BR 

CMPS 

BNE 

JSR 

BR 

CMP8 

BNE 

BIT 

BNE 

JSR 

BR 

CMP8 

BNf 



DTJW 
KSR 

#PR4,PS 

CF LAG 

.SCRLF 

PCITIME 

PC.ST<INT 

.ENTCOM 



(^P)*,R5 

CFLAG 

2$ 

ASNLST 

13$ 

START 

R5 

#'T.(R5) 
9$ 

#'A,iR5) 
3S 

<R5).#'7 
121 

(R5).#"0 
12$ 

#-C7,(R5) 

#'T.-1{R5) 

4$ 

PC .NEWASN 
13$ 

#'D.-1 <R5) 
5$ 

PC-DEASGN 
13i 

/r'S.-1(R5> 
6$ 

PC.SCMND 
13i 

#'W.-1(R5) 
8$ 

«suo,aswR 
11$ 

PCDATAPK 
13$ 

*'R.-1(R5) 
12$ 



•CFI AG' IS NORMALLr SET BV ^HE TTf SERVICE 
ROUTINE IN INTERRUPT MODE 

SVSTEM BUSr RETURN 

RETURN AFTER KErSOARD SERVICED 

ANV DATA TRANSFERS UNDER WAr ? 

SR IF YES 

SAVE THE REGISTEPS 

SET PRIORITY TO 4 

CLEAR THE 'CONTROL C FLAG 

CR-LF 

TYPE THE TIME 
INITIALIZE TTY KEYBOARD 
'ENTER COMMAND' 

READ THE KEYBOARD 
GET ADDRESS OF INPUT STRING 
CHECK THE CONTROL C FLAG 
;BR IF NO 'CONTROL C* ENTERED 
;ANV DRIVES ASSIGNED ? 
;8R IF YES 
IJLMP TO START 

;P0INT TO SECOND CHARACTER 
;E0 TO A 'T* ? 

;YES 

;E0 TO AN 'A' 

;8R If IT IS 

; DRIVE NLfOER GREATER THAN AN ASCII 7 ? 
;8ft IF IT IS 

;DRIVE NUMBER LESS THAN AN ASCII 0 ? 
;8R IF IT IS 

rLEAVE ONLY LOWER 3 BITS IF CHAR NOT 'A' 

;EQ TO 'T* 

;BR IF NOT EO 

;ASSIGN DRIVE FOR TEST 

;EXIT 

;EQ TO 'D' ? 
.•BR IF NOT EQ 
rDEASSIGN DRIVE 
;EXIT 

;E0 TO 'S' 
;8R IF NOT EQ 
.■TYPE STATISTICS 



BR IF NOT EO 

IS SWITCH 0 SET ? 

BR IF SET. CAN'T DO 'W' COMMAND 

WRITE A DATA PACK 

EXIT 

EO TO 'R' ? 
BR IF NOT EQ 
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CQ 






UCO J*»>J 






1 CO 


PC.REDAPK 


OFAn A nATA PATK 


CQ 












no 


M*\J -1 (RS) 




oU 






nnni 37 


' 77777 

f f 1 1 r 


04 • 






61 




001031 








onic 


1 C 9 « 


NO 




n5cci 5 


n'^9777 


UUWU 1 


1 S^AXA 




ni T 

Oi > 




IS SWITCH 0 SFT ' 

BR IF SFT CAN'T DO 'w' COMMAND 


05 


n5CC5n 


nni n?? 








lis 

#'A.1(R5) ! 






1 557<>^ 
1 CC'Oj 




r\f\r\r\c\^ 

UUUUU 1 






Al 1 bRI\/FS '> 




025530 


UU 1 H 1 J 








DC <■ 


ICS 


YES 


OO 
0' 




1 5<s^37 
' U 1 U J 




r\r\r\c\f^7 

UUUvO f 




rmPA 


1(R5).#'7 ! 


GRFAT THAN 7 










o~ i 


1 2$ 


YES 


OO 






UUUUU 1 


UV/UUOv 








•1 FSS THAN 0 


OT 


n5cccr> 


1 nXL 1 1 








Rl n 


IPS 


YES 


7rt 

"^U 


Uc jOU 


1 MC ' O J 


1 77770 

\ f f f f \j 


nnnnni 




Ri rn 


■CHOP OFF THE HIGHER BITS 


' 1 


nnz.7'?7 


UtO jD*» 






•J j~ 


pr uATpAIC 


'ASSIGN DRIVES UITH uT COMMAND 


75 


'JC J jO*» 


UUv*»UO 








RR 


'TYPE 'CAN'T WRITE IN READ ONLY MODE' 


7? 

r J 


n5CCAA 


1 C\LL(\^ 
1 UHhU ' 






MP. 


T VPF 




7L 
f H 


\JCJJf c 










RR 

Ori 




; TRY AGAIN 

■TYPE 'INVALID COMMAND* MESSAGE 


7C 




1 \JHH\J 1 












76 


025600 


000626 








BR 


1S 


;TRY AGAIN 


77 


C25602 


10A413 






13S: 


RESREG 




rRESTORE RO - R5 


^8 


02560A 


005777 


153352 






TST 


aSTKB 


; CLEAR THE TTY BUFFER 


79 


025610 


052777 


000100 


155342 




BIS 


#8IT06.a$TlcS 


;SET TTY INTERRUPT ENABLE 


80 


025616 


005C37 


1 7777b 






CLR 


PS 


;SET PRIORITY BACK TO ZERO 


81 


02562? 


000207 








RTS 


PC 


.RETURN 



82 
83 
8A 
85 
86 
87 
88 
89 
90 
91 
92 
93 
9A 
95 
96 
97 

98 
99 
100 
101 
102 
103 
104 
105 
^06 
107 
108 
109 

no 
111 

1T2 

1 K 



.•ROUTINE TO PROCESS THE ASSIGN REOUFST CT' 



OR 'W' COMMANDS) 



025624 
025626 
025632 
025636 
025642 
025644 

025646 
025652 
025654 
025656 
02566C 
025664 
025666 
025672 
C25674 
025700 
025702 
025706 
025710 
025714 
025720 

025722 
025730 
025734 
025736 
025742 
025744 
025752 
025760 



1 1 1 504 
005037 
005037 
104401 
10441* 
012600 
005737 
001365 
105710 
001414 
105760 
001006 
122710 
001410 
122710 
001403 
104401 
000747 
005237 
122704 
001431 

012737 
005737 
001412 
123704 
001007 
14643^ 
012737 
000407 



001 340 
001430 
077315 



001 340 

000001 

00C131 

000116 

076677 

001430 
000101 



075676 
001432 

001432 

040142 
0760n 



ASSIGN: 
IS: 



?S: 

3S: 
4S: 



031050 ASGN 



001530 
031050 



MOVB (R5).R4 

CLR CFLAG 

(LR DRVPAR 

TYPE .MSPPM 
RDLIN 

MOV (SP)*.RO 

TST CFLAG 

BNE IS 

TST8 (RO) 

BE CI 3S 

TST8 KRO) 

BNE 2S 

CMP8 #'Y.(RO) 

6E0 4S 

CMP8 *"N.(RO) 

8E0 3S 

TYPE .BADENT 

BR IS 

INC DRVPAR 

CMP8 #'A.R4 

BEO ASGN2 

MOV #UNTASN.ASNMSG 

TST XXDP 

BEO IS 

CMPQ XXDP.R4 

BNE 1$ 

BIC8 ATA8IT(R4).ASNLS 

MOV #LODEV.ASNMSG 

BR 2S 



PUT DRIVE » IN R4 

CLEAR CONTROL C FlAG 

ASSUME CHANGING DRIVE PARAMETERS 

TYPE 'CHANGE DRIVE PARAMETERS ?* 

READ THE ENTRY 

SAVE ADDRESS QF RESPONSE 

WAS IT CONTROL C ? 

BR IF YES 

WAS RESPONSE A CARRIAGE RETURN (DEFAULT 'N' 
BR IF YES 

WAS IT TERMINATED WITH CARRIAGE RETURN ? 
BR IF NO 

WAS IT A 'Y' RESPONSE ? 
BR IF YES 

WAS IT A 'N' RESPONSE ? 
BR IF YES 

TYPE BAD ENTRY MESSAGE 
TRY AGAIN 

00 NOT CHANGE DRIVE PARAMETERS 
ASSIGN ALL DRIVES ? 
BR IF YES 

•DRIVE ASSIGNED' MESSAGE ADDRESS 
LOADED FROM THIS DEVICE ? 
BR IF NO 

LOADED FROM THIS DRIVE ? 
BR IF NO 

.•DELETE THE DRIVE FROM THE ASSIGNED 
'LOAD DEVICE* MESSAGE ADDRESS 



\t»A^ SUPPORT SUBROUTlHiES 



H^CRC 1/04.00 4-APR-81 



15 
16 
17 

18 
'9 
20 
2^ 
22 
21 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3^ 
35 
36 
37 
38 
39 
40 
AT 
A2 
43 
44 
45 
40 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



^57 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
'68 



025762 
025770 
025772 
025776 
026000 

026004 
026006 
026014 
026020 
026022 
026026 
026030 
026036 
026044 
026046 
026054 
026056 
026062 
C26064 
026070 
026072 
026074 
026100 

026102 
026110 
026112 
026116 
026120 
026124 
0261 30 
026132 
026136 
026140 
026142 
026146 
026152 
026156 
026162 
026164 
0261 70 
026172 
0261 74 
026175 
0261 76 
026202 
026206 
026212 
026216 
026222 
026224 
026230 
026234 
026242 
026250 
C26252 



156437 
001003 
004737 
000207 
000157 

005004 
012737 
005737 
001412 
123704 
001007 
146437 
012737 
000413 
136437 
001007 
004737 
005204 
020427 
003746 
000207 
00«.737 
000770 

1 36437 
001060 
110437 
006304 
016400 
004737 
006204 
105764 
001453 
100445 
004737 
004737 
004537 
005737 
001017 
104401 
010446 
104403 
002 
000 
104401 
004737 
104401 
004737 
104401 
006304 
004737 
004737 
016464 
1 1 3760 
006204 
00020' 



040142 
026102 
051024 

075676 
001452 

001452 

040142 
0'6011 

040U2 

026102 

OCOOO" 

031024 



001550 1$: 



031050 



001530 
031050 

001530 



2t: 

ASGN2: 
IS: 



2i: 
31: 

<,$: 



0«.0142 001530 ASGN5: 

070522 

002044 
015740 

040036 



026602 
027420 
027520 
001450 

076572 



001203 
032472 
075623 
032522 
001205 

027020 
030124 
002044 
001 320 



001554 
000026 



1$: 



ASGN<.: 



BIT8 

BNE 

JSR 

RTS 

JMP 

CLR 
MOV 

rsT 

BEQ 

CMP8 

BNE 

BK8 

MOV 

BR 

BIT8 

BNE 

JSR 

INC 

CMP 

BLE 

RTS 

JSR 

BR 

BITS 

BNE 

M0V8 

ASL 

MOV 

JSR 

ASR 

TST8 

BEO 

BMI 

JSR 

JSR 

JSR 

TST 

BNE 

TYPE 

MOV 

TVPOS 

.8rTE 

.8VTE 

T^PE 

JSR 

yvpE 

JSR 

TrPE 

ASL 

JSR 

JSR 

MOV 

M0V8 

ASR 

RTS 
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01:42:23 PAGE 27-2 



ATA81 T (R4).ASNLST 
2S 

PC.ASGN3 
PC 

ASNERR 



.•DRIVE ALREADY ASSIGNED 
8R If IT IS 

SEE IF DRIVE ON THE SYSTEM 
RETURN 
EXIT ERROR 



.•START WITH DRIVE 0 
.•ERROR MESSAGE 
.•LOADED FROM THIS DEVKE ? 
;8R IF NO 

.•LOADED FROM THIS DRIVE ? 
;8R IF NO 

ATA8IT(R4).ASNLST ;DE1ETE THE DRIVE FROM THE ASSiGNEP LIST 

*LODEV.ASNMSG .•'LOAD DEVICE' MESSAGE ADDRESS 
4S 

ATA8IT(R4).ASNLST ;ALREADY ASSIGNED ? 



R4 

iTUNTASN.ASNMSG 

XXDP 

2$ 

XXDP.R4 
21 



4t 

PC.ASGN3 
R4 

R4./(r7 

It 

PC 

PC.ASNERR 
5t 

ATA8IT(R4> 
ASGN4 
R4.GENDPB 
R4 

BLKADR(R4) 

PC.RECALO 

R4 

DRVSTA(R4) 

ASGN7 

ASGN6 

PCCLRDPB 

PC.GETID 

RS.uETADR 

DRVPAR 

1$ 

.DRNUM 
R4,-(SP) 

2 
0 

.SCRLF 
PC.TYMBA 

TAB 
PC.TYPACK 
.ICRLF 
R4 

PC.DRVPRM 

PC.MANTfR 

BLKADR(R4) 

PACK.SPAfK 

R4 

PC 



YES 

ASSIGN THE DRIVE 
INCREMENT DRIVE # 
ALL DRIVE CHECKED ? 
NO 
YES 

ERROR MESSAGE 
TO LOOP 



.ASNLST .DRIVE ALREADY ASSIGNED ? 

8R IF IT IS 
GET DRIVE NUMBER 
MAKE R4 WORD INDEX 
.RO ;PUT BLOCK'S ADDR INTO RO 
RECALIBRATE DRIVE 
MAKE R4 BYTE INDEX 
DRIVE AVAILABLE? 

BR IF DRIVE OFFLINE OR NONEXISTENT 
8R If DRIVE UNSAFE 
CLEAR BLOCK FOR DRIvc JUST ASSIGNED 
GET DRIVE (MBA) SERIAL NUMBER 
RETRIEVE BAD SECTOR FILE 
CHANGE DRIVE PARAMETERS ? 
BR IF NO 

TYPE DRIVE MESSAGE 
.•SAVE R4 FOR TYPEOUT 
;G0 TYPE— OCTAL ASCII 
;TYPE 2 DIGIT (SJ 

SUPPRESS LEADING ZEROS 
CR-LF 

TYPE MBA (DRIVE) SERIAL NUMBER 
TYPE TAB CONTROL 
TYPE PACK SERIAL NUMBER 
CR-LF 

MAKE R4 WORD INDEX 
GET THE DRIVE'S ADDRESS LIMITS 
MANUALLY ENTER BAD SECTOR INFORMATION 
.NEWUNT(R4) ;DP8 ADDRESS 



(RO) 



SET READ/WRITE DATA PACK INDICATOR 
MAKE R4 BYTE INDEX 

RE Turn 



ZRMUBC PCRf ExER MACRO l/W.OO 4-APR-81 

^-iENERAL SUPPORT SUBROUTINES 

169 

026?'5A 01 ?737 C 76001 f^iC'iC ASGN6: '^Oii' 

VI 026?6? 000^37 051 0?A jW 
V2 

173 026266 105764 0A0046 ASGN7: TST8 

174 02627? 00U05 8EQ 

175 026274 100010 BPL 

176 026276 012737 075724 031050 MOV 

177 026304 000407 8R 

178 026306 012737 075745 031 C50 If: MOV 
17<? 026314 000403 BR 
'30 026316 012737 075633 031050 2$: MOv 
'81 026324 000137 031024 3»: iMP 
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#NOTSAr.ASMMSG 
ASNERR 

DRvTrP(R4) 

IS 

2% 

*NOrRM.ASNMSG 
3$ 

#NaTPRs,As^wsG 
3f 

tUNTOFf ,ASNMSG 
ASNERR 



'UNSAFE' MESSAGE Afjppf^', 
TO ERROR ROUTINE 

DRIVE PRESENT? 
8R IF NOT 

8R IF DRIVE OFFLINE 

ADDRESS OF 'NOT RM05/3/2' MSG 

EXIT 

ADDRESS OF 'NOT PRESENT' MSG 
EXIT 

ADDRESS OF 'DRIVE QffLlNl' MESSAGE 
TO ERROR ROUTINE 



t ZRMUBO 


RMC5/3/2 PfRF E)«ER 


GENERAL 


SUPPORT 


SUBROUTINES 


2 
5 


026330 


005004 




5 


026332 


012703 


000010 


6 


026336 


122715 


000101 


7 


026342 


001403 




8 


026344 


1 1 1 504 




9 


026346 


012703 


r\ r\ ^ r\ r\ 4 

000001 


10 


026352 


1 36437 


040142 


1 1 


026360 


001417 




12 


026362 


146437 


040142 


1 3 


026370 


146437 


040142 




026376 


006304 




15 


026400 


016464 


002044 


16 


026406 


006204 




1 7 


0?o410 


005303 




"8 


026412 


0014 0 




'9 


026414 


005204 




20 


C26416 


000755 




mm. m 

21 


026420 


012757 


075654 


22 


026426 


00W57 


AT^ A^y 

031024 


25 


026432 


000766 




2A 


026434 


000207 




25 








26 








27 








28 


026436 








026436 


01 3^46 


001 55U 


29 


026442 


\2d7\ 5 


AAA1 AI 

0001 01 


30 


026446 


AA1 / i 

0014 ID 




3 1 


026450 


in 504 




32 


026452 


1 364 1 6 


A/ AI / ^ 

040142 


35 


026456 


Arti y Ay 

001404 




3A 


026460 


1 i6437 


Ay Ai y ^ 
0401*2 


35 


026466 


00041 1 




36 










026470 


012737 


075654 


38 


026476 


004737 


ATI A*^/ 

031024 


39 


026502 


000407 




AO 


026504 


■1 AC 


AA1 C T A 

00^ ^50 


41 


0265 10 


AA1 y A. 

001404 




42 


026512 


004757 


A TTC C A 


43 


026516 


^ /\y / nt 

104401 


A'T'Z. ICC 

076155 




026522 








026522 


012637 


AAi C7A 

001530 




026526 


000207 




46 








47 








48 








49 


026530 






50 


026534 


000137 


02562^* 


51 








52 
















54 


026540 


012737 


000001 


55 


026546 


0001 3? 


025624 
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SEO 0126 



;'D* COrWAND (ROUTJNE TO DEASSIGN A DRJVE) 



001530 

001530 
031662 

001532 



031050 



DcASoN: 


r 1 D 
CLH 




MAW 
HUV 








DC A 








nuv 




D I TD 
□ J Id 




DC U 




olio 




Q 1 m 

9J to 




ACI 




MDVi 

nuv 




ACQ 


2$: 


DEC 




BEO 




INf 




BR 


3$: 


|X|OV 




JSR 




BR 


4S: 


RTS 



SCMND: 



001530 
031050 



IS: 

2S: 
3t; 
4S: 



MOV 

CMPB 

BEO 

M0V8 

81 IB 

BEO 

novB 

BR 

MOV 
JSR 
BR 

Tsre 

BEO 
JSR 
TYPE 

MOV 

RTS 



R4 

*8..R3 

#'A.(R5) 
IS 

(R5),R4 
#1 .R3 



.•START WITH DRIVE 0 
.•COUNTER 

.•DEASSIGN ALL DRIVES ? 
;8R IF YES 
;GET DRIVE NUMBER 
;SET R3 FOR ONE UNIT 



AT.:k8IT(R4).ASNLST ;DRIVE ASSIGNED ? 

3S ;BR IF NOT 

ATAeiT(R4).ASNLST .'DELETE THE DRIVE FROM THE ASSIGNED LIST 

ATA81T(R4),AUTLST ;DELETE DRIVE FROM AUTO ASSIGN LIST 

R4 .-MAKE ADDR INTO A WORD INDEX 

BLKA0R(R4),DUNIT(R4) ;PUT ADDRESS IN DEASSIGN LIST 
R4 

;ANY MORE DRIVES ? 
;8R IF NOT 



R3 
4S 
R4 
1S 

#UNT\0T,ASNMSG 

PC.ASNERR 

2S 

PC 



;ADDR OF 'NOT ASSIGNED' MESSAGE 
.•REPORT IT 



(ROUTINE TO TYPE DRIVE PERFORMANCE SUMMARY) 



ASNLST.-(SP) 
#'A.(R5) 
2$ 

(R5).R4 

ATABIT<R4),<SP) 
IS 

ArABIT(R4).ASNLST 
3$ 

#UNTNOT,ASNMSG 
PC.ASNERR 
4S 

ASNLST 
4S 

PC.STATPR 
.STAR5 

(SP>*,ASNlST 
PC 



;PUSH ASNLST 0»< STACK 
ALL STATISTICS ? 
BR IF YES 
GET DRIVE NUMBER 
IS THIS DRIVE ASSIGNED ? 
BR IF NO 

:GET DRIVE ASSIGN BIT 



ADDR 0^ 'NOT ASSIGNED' MSG 
TYPE ERROR MESSAGE 
EXIT 

ANY DRIVE ASSIGNED ? 
BR IF NO 

TYPE ALL STATISTICS 
TYPE '.......ETC 

.-POP STACK INTO ASNLST 



;'T' COMMAND (ROUTINE TO TEST A DRIVE) 



NEWASN: CLR 
JMP 



PACK 
ASSIGN 



;SET 'T' COMMAND INDICATOR 
;G0 TO THE ASSIGN ROUTINE 



;'R' COMMAND (ROUTINE TO READ A DATA PACK) 



001320 



REDAPK: MOV 
JMP 



#1,PACK 

ASSIGN 



;SET THE 'READ' INDICATOR 
.•ASSIGN THE REQUESTED DRIVE 



'■7RMUB0 RM05/^/2 PERF EXER 
GENERAL SUPPORT SUBROUTINES 

56 

57 
58 
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•W COMMAND (ROUTINE TO WRITE A DATA PACK) 



S£0 0127 



;SET THE 'W COMMAND INDICATOR 
.-ASSIGN REQUESTED DPIVE 



59 026552 012757 ^77777 001320 DATAPK: MOV »-1.PACtC 

60 026560 000157 025624 JMP ASSIGN 

62 ;'WT' COMMAND (TO WRITE A PAC< AND TEST A DRIVE) 

64 026564 116515 000001 WATPAK: M0V8 1(R5).(R5) ; ADJUST DRIVE NUMBER ADDRESS 

65 026570 012737 177776 001320 MOV #-2. PACK ;PAC< WRITE COMMAND ^ 

66 C?6576 000157 025624 JMP ASSIGN ;JUMP TO ASSIGN ROUTINE 



CZRMU80 RM05/3/2 PERF EXER 
GENERAL SUPPORT SUBROUTINES 



MACRO V04.00 
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■> 

3 
4 
5 
6 

8 

9 



ROUTINE TO CLEAR THE OPB FOR 'HE ASSIGNED DRIVE 
CALL : 

MOV *DP8,R0 ;DP8 ADDRESS 

JSR PC.CLRDPB 
RE TURN 

RO = DP8 ADDRESS BEFORE CALLING THE ROUTINE 



10 


026602 








CLRDPB: 






026602 


010146 








MOV 




026604 


010346 








MOV 




026606 


010446 








MOV 




026610 


010546 








MOV 


1 1 


026612 


010004 








Mill i 

MOV 


12 


026614 


062704 


000002 






ADD 


13 


026620 


012703 


00001 2 






MOV 


K 


026624 


005024 






1»: 


CLR 


1 5 


026626 


162703 


000002 






SUo 


16 


C 26632 


001 5/'4 








BNt 


17 


026634 


062704 


000002 






ADD 


18 


026640 


012703 


000104 






nOV 


19 


026644 


005024 






2>: 


CLh 


20 


026646 


162r03 


00000^ 






SUB 


21 


0266 2 


00^ 5 f** 








oNc 


22 


026654 


062704 










23 
25 


026660 


012705 


COOOoH 








29 


026664 


0" 2764 


1 rrrff 


\ f f f fb 




BiA\i 


30 


026672 


005024 








CLk 


31 




1 Z. T 7 A 7 


AAAAAT 








32 


026700 


0013/^4 








dNc 


33 


026702 


1 1 5/^60 


AA1 CAT 


UUUU<:4 






3A 


026710 


013701 


AA1 CAT 

001 502 






MOV 


35 


026714 


1 16160 


AATAZ./ 

002064 


OOO'JOi: 




MA\/D 

novo 


36 


026722 


1 1 5roO 


AA1 CAA 


l\f\f\f\tf\ 

0UUU5U 




MAt/D 

nuvo 


37 


026730 


1 06360 


AAAA7 A 

000030 






A5Lo 


50 


\)COf J** 


U 1 ou 




\J\J\J\JC\J 




rRJV 


39 


026742 


013760 


001504 


000004 




MOV 


40 


026750 


005460 


000004 






NEG 


41 


026754 


012760 


000400 


000022 




MOV 


42 


026762 


012760 


000001 


000104 




MOV 


43 


026770 


132760 


000001 


000024 




BJ T8 


44 


026776 


001403 








BEO 


45 


027000 


062760 


000002 


0 J022 




ADD 


46 


027006 








4S: 






027006 


012605 








MOV 




027010 


012604 








MOV 




027012 


012603 








MOV 




027014 


012601 








MOV 


47 


027016 


000207 








RTS 



R1.-(SP) 
R3.-(SP) 
R4,-(SP) 
R5,-(SP) 
R0.R4 
#2.R4 

#<$CYL-$C0MND>*2 
(R4)i 
#2.R3 
1$ 

*2.R4 

#<$NEXT-$TATUS>*2.R3 
(R4)* 
*2,R3 
2$ 



PUSH R1 ON STACK 
PUSH R3 ON STACK 
PUSH R4 ON STACK 
PUSH R5 ON STACK 
GET THE DPB ADDRESS 
ADDRESS OF FIRST LOCN TO BE CLEARED 
R3 ;NljnBER OF LOCNS TO BE CLEARED 
CLEAR THE LOCATION 
DONE CLEARING YET ? 
BR IF NO 

SKIP OVER THE 'SREG* LOCATION 

.•NUMBER OF LOCNS TO BE CLEARED 
CLEAR THE LOCATION 
DONE CLEARING YET ? 
BR IF NO 



*<$MBASN-$FIRST>.R4 

*<$RMCS3-$MaASN>*2.R3 
*-l.-2{R4) 
(R4)* 
*2,R3 
3f 

BEGCOD,$CODE(R0) 

BEGC0D.R1 ;6ET THE ACTUAL OP CODE 

C0MT8L(R1).SC0MND(R0) .-OPERATION CODE 
BE6PAT,$PATTC(R0) .-PATTERN CODE 



.-SKIP OVER FIRST FLAG. 
.-LIMITS AND BAD SECTOR 
.-NUMBER or LOCNS TO BE 
INITIALIZE TERMINATOR FOR BAD 
CLEAR A LOCATION 
DONE CLEARING YET ? 
BR IF NO 

.-INITIAL COMMAND CODE 



MIN/MAX ADRS 
TABLE 
CLEARED 
SECTOR TABLE 



$PATTC(RO) 
BEGUCSURDLCRO) 
8E6WC.$WCNT(R0) 
SUCNT (RO) 
#256..SSSEC(R0) 
#1.$PASSC{R0) 
«1.$C0DE(R0) 
4$ 

«2.SSSEC(R0) 

{SP)*,R5 
(SP)*.R4 
(SP)*,R3 
(SP)»,R1 
PC 



CONVERT CODE ^0 A TABLE INDEX 
BEGINNING WORD COUNT 
VALUE FOR DATA TRANSFER 
MAKE IT INTO 2'S COMPLEMENT 
INITIAL VALUE OF SECTOR SIZE 
PRESET PASS COUNT TO 1 
HEADER COMMAND ? 
BR IF NOT 

ADD HEADER SIZE TO SECTOR SIZE 

POP STACK INTO R5 

POP STACK INTO R4 

POP STACK INTO R3 

POP STACK INTO R1 
RETURN 



48 
49 
50 
51 
52 
5? 



ROUTINE TO GET ADDRESS LIMITS FROM THE OPERATOR 
CALL : 

MOV *DP8.R0 ;DP8 ADDRESS 

JSP PC.DRVPRM .-CALL ROUTINE 



ZRMU80 RM05/^/2 PERF EXER 
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54 

55 
56 
S7 
58 
59 
60 
61 
6? 
63 
64 
o5 
66 
6^ 
68 
69 
70 
71 
72 
73 
74 
7S 
76 
77 
78 
79 
80 
81 
82 
83 
84 

86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
% 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 



;R0 = DPS ADDRESS BEFORE CALLING THE ROUTINE 



0270?G 
027022 
027024 
027030 
027032 
027036 
027040 
027044 
027046 

027052 
027056 
027064 
027066 
0d7074 
027102 
027110 
C27114 
027120 

027124 
027130 
027132 
027136 
027140 
027144 
027146 
027152 
027160 
027166 
0271 74 
027202 
027210 
027216 

027222 
027226 
027252 
027234 
027236 
027242 
027246 
027252 
027256 
027260 
027262 
027266 
027272 
027276 
027302 
027304 
027306 
027312 



010346 
010446 
105737 
001010 
005737 
003005 
005737 
001002 
104401 

004737 
062760 
103417 
013760 
01 3760 
01 3760 
005060 
005060 
005060 

105737 
001072 
005737 
003067 
005737 
001064 
016403 
013763 
01 3763 
013763 
013763 
013763 
013763 
004737 

016003 
016004 
020304 
003404 
010360 
010460 
016003 
016004 
020304 
003404 
010360 
010460 
016003 
016004 
020304 
003404 
010360 
010460 



001150 

001336 

001430 

076610 

027346 
\77777 

001422 
001426 
001424 
000126 
0C0132 
0001 36 

001150 

001336 

001430 

0777y, 
001422 
001422 
001426 
001426 
001424 
001424 
030700 

000126 
000124 



000124 
000126 
000132 
000130 



000130 
000132 
000136 
000134 



000134 
0001 36 



DRVPRM: 



000122 

000124 
000130 
000134 



1$: 



2$: 



000002 
000010 
000016 
000024 
000032 
000040 



3$: 



4S: 



027316 0160^0 000126 00001? 5t: 



MOV 

MOV 

TST8 

BNE 

TST 

BGT 

TST 

BNE 

TYPE 

JSR 
ADD 
BCS 
MOV 
MOV 
MOV 
CLR 
CLR 
CLR 

TST8 

BNE 

TST 

BGT 

TST 

BNE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

JSR 

MOV 
MOV 
CMP 
BLE 
MOV 
MOV 
MOV 
MOV 
CMP 
BLE 
MOV 
MOV 
MOV 
MOV 
CMP 
BLE 
MOV 
MOV 

MOV 



R3.-(SP) 
R4.-(SP) 
SAUT06 
1$ 

CHGADR 
1$ 

DRVPAR 
1$ 

.ENTLMT 



SAVE R3 
SAVE R4 

RUNNING IN AUTO MODE ? 
BR IF YES 

PROGRAM STARTED AT 200 ? 
BR IF VES 

CHANGE DRIVE PARAMETERS ? 
BR IF NO 

•ENTER ADDRESS LIMITS' 



PC.GETLMT ;GET ADDRESS LIMITS 

#-1.$FIRST(R0; ;SEE IF FIRST TIME STARTED 
2$ ;BR IF NOT 

CYuJMT.MAXCYL(RO) ;LOAD MAXIMUM CYLINDER 

TRKLMT.MAXTRK(RO) .LOAD MAXIMUM TRACK 

SECLMT.MAXSEC(RO) ;LOAD MAXIMUM SECTOR 



MINCYL(RO) 
MINTRK(RO) 
MINSEC(RO) 

SAUT08 
5$ 

CHGADR 
5$ 

DFiVPAR 
5S 

TABLE (R4),R3 

CYLJMT,2(R3) 

CYLIMT,10(R3> 

TR»CLMT,16(R3) 

TRKLMT,24(R3) 

SEClMT,32(R3) 

SECLMT,40(R3) 

PCPARENT 

MINCYL(R0).R3 

NAXCYL(R0).R4 

R3,R4 

3$ 

R3,«AXCyL(R0) 

R4.«INCYL(R0) 

niNTRK(R0),R3 

nAXTRK(R0),R4 

R3.R4 

4S 

R3,MAXTRIC(R0) 

R4.MINTRK{R0) 

M1NSEC(R0).R3 

MAXSEC(R0).R4 

R3.R4 

5$ 

R3.MAXSEC(R0) 
R4.MINSEC(R0) 



CLEAR MINIMUM CYLINDER 
CLEAR MINIMUM TRACK 
CLEAR MINIMUM SECTOR 

RUNNING IN AUTO MODE ? 
BR YES 

PROGRAM STARTED AT 200 ? 
BP IF YES 

CHANGE DRIVE PARAMETERS 
6R IF NO 

PARAMETER TABLE ADDRESS 
LOAD CYLINDER LIMIT FOR MINCYL 
LOAD CYLINDER LIMIT FOR MAXCYL 
LOAD TRACK LIMIT FOR MINTRK 
LOAD TRACK LIMIT FOR MAXTRK 
LOAD SECTOR LIMIT FOR MINSEC 
LOAD SECTOR LIMIT FOR MAXSEC 
GET THE DRIVE'S PARAMETERS 



STORE MINCYL 
STORE MAXCYL 
IS MIN. LESS 
BR IF YES 
SWAP niN. TO 
SWAP MAX. TO 
STORE MJNTRK 
STORE MAXTRK 
IS MIN. LESS 
BR IF YES 
SWAP MIN. TO 
SWAP MAX. TO 
STORE MINSEC 
STORE ?1AXSEC 
IS MN. LESS 
BR IF YES 
SWAP MIN. TO 
SWAP MAX. TO 



VALUE 
VALUE 

THAN OR EQUAL TO MAX 

MAX. 
MIN. 

VALUE 
VALUE 

THAN OR EQUAL TO MAX 

MAX. 
MIN. 

VALUE 
VALUE 

THAN OR EQUAL TO MAX 

MAX. 
MIN. 



MINCYL (RU).tCYL(RO) 



.•INITIAL CYLINDER VALUE 



CZRMUBO RM05/3/2 PERF EXER 
GENERAL SUPPORT SUBRCXJ TINES 



111 

113 

IK 
115 
■"16 

n? 

118 
^19 
120 
121 
122 

123 
12A 
125 
126 
127 
128 
129 
130 
131 

^32 



027324 
027332 
027340 
027342 
027344 



116060 
116060 
012604 
012603 
000207 



000132 
0001 36 



MACRO V04.00 



000011 
000010 



N 10 

4-APR-81 01:42:^3 PAGE 29-2 



027346 








027346 


010146 






027350 


005001 






027352 


012737 


001465 


001422 


027360 


012737 


000037 


001424 


027366 


111001 






027370 


012737 


000022 


001426 


C27376 


122761 


000007 


040046 


027404 


001403 




001426 


027406 


012737 


000004 


027414 








027414 


012601 






027416 


000207 







Move MINTRK(RO) .STRK(RO) 

M0V8 MINSEC(RO).tSEC(RO) 

MOV (SP)+,R4 

MOV (SP)+.R5 

RTS PC 



.INJ^AL 
.•INITIAL 
;POP STACK INTO 
;POP STACK INTO 
RETURN 



TRACK VALUE 
SECTOR VALUE 
R4 
R3 



ROUTINE TO GET THE ADDRESS LIMITS FOR THE CURRENT DRIVE TYPE 
CALL: 

JSR PCGETLMT ;CALL ROUTINE 

RO = DP8 ADDRESS BEFORE CALLING THE ROUTINE 



GETLMT; 



IS: 



MOV R1,-(SP) 

CLR R1 

MOV *821.,CYLiMT 

MOV »31..SECL«T 

M0V8 (R0),R1 

MOV #18..TRKLMT 

CMP8 *7.DRVTYP(R1) 

BEO IS 

MOV *4,TRICLMT 

MOV (SP)+,R1 

RTS PC 



.•PUSH R1 ON STACK 

START FRESH 

GET CYLINDER LIMIT 

GET SECTOR LIMIT 

GET DRIVE NUMBER 

ASSUME LAST TRACK FOR AN RM05 

IS DRIVE AN RM05 ? 

8R IF YES 

GET LAST TRACK FOR AN RM03/2 

;;POP STACK INTO R1 
; RE TURN 



CENEt^AL SjPPORT subroutines 



5 

5 
6 

7 
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S60 0131 



n 



8 

Q 

'0 0274?0 
027420 
027422 
027424 
027426 
027430 

12 027432 

13 027436 
U 027442: 
^5 02/446 

16 C27450 

17 027452 

18 0*^7454 

19 027456 

20 027460 

21 027462 

22 027464 

23 027466 

24 027470 

25 027474 

26 027500 

27 027502 

28 027504 
?9 027506 

027510 
027512 
027514 
30 C27516 



010046 
010146 
010246 
010546 
010002 
004737 
012702 
016001 
005005 
006101 
006105 
006101 
006105 
006101 
006105 
006101 
006105 
062705 
110560 
005200 
005302 
003360 
012605 
012602 
012601 
012600 
000207 



ROUTINE TO GET THE DRIVE (MBA) SERIAL ^JUMBER FROM RMSN REGISTER 
THIS Nl/«ERS CONTAINED IN THE REGISTER ARE ONLY THE 4 LSD'S OF THE 
SERIAL NUMBER. 
CA L: 

MOV #DP8,R0 ;DP8 ADDRESS 

JSR PC.GETID .-CALL ROUTINE 

RO - DPB ADDRESS BEFORE CALLING THE ROUTINE 

GETID: 



045230 
000004 
002166 



1$: 



000060 
002126 



MOV 


RO,-(SP) ; 


."PUSH RO ON STACK 


MOV 


R1,-(SP) 


;PUSH R1 ON STACK 


MOV 


R2,-(SP) ; 


Ml 1^ ■ ■ M ^ ^^ft 1 ^ V ft ^ 

;PUSH R2 ON STACK 


MOV 


R5,-(SP) ; 


i i 0^ ^ ^%ft I V ft u 

;PUSH R5 ON STACK 


MOV 


R0.R2 ; 


GET INDEX TO DPB 


JSR 


PC.SVRH70 ; 


^fti^r fti I MF^ff/^VPf\^ 

SAVE ALL REGISTERS 


MOV 


t4.R2 


FOUR DIGITS TO STORE 


MOV 


$RMSN(R0),R1 , 


SERIAL NUMBER 


CLR 


R5 


ZERO 


ROL 


HI , 


PUT THE NEXT DIGIT 


ROL 


R5 , 


INTO R5 


ROL 


Hi 




WUL 






ROL 


R1 




ROL 


R5 




ROL 


R1 




ROL 


R5 




ADD 


#'0,R5 


MAKE IT ASCII 


MOVB 


R5,$MBASN(R0) 


■SAVE DRIVE (MBA) SERIAL NUMBER 


INC 


RO 


•GET NEXT INDEX FOR DRIVE (MBA) 


DEC 


R2 


■ALL DIGITS TYPED? 


8CT 


1$ 


•NO — BRANCH 


MOV 


(SP>*.R5 


•;POP STACK INTO R5 


MOV 


(SP)*.R2 


•;POP STACK INTO R2 


MOV 


(SP)*.R1 


;;POP STACK INTO R1 


MOV 


(SP)*,R0 


;;POP STACK INTO RO 
■RETURN 


RTS 


PC 



SERIAL NUWER 



t 



READ 0ECK4 FILE 



1 



5 
6 
7 
8 

9 
10 

n 

12 
13 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
?7 
28 
29 
30 
31 
32 

33 027520 
027520 010U6 
027522 010246 
02752A 010346 

34 027526 004737 

35 027532 010001 

36 027534 062701 

37 027540 010146 

38 027542 111037 

39 C27546 012737 

40 027554 113737 

41 027562 112737 

42 027570 012737 

43 027576 112737 

44 027604 012737 

45 027612 012703 

46 027616 004037 

47 027622 070322 

48 027624 000772 

49 027626 005737 

50 027632 001775 

51 027634 100010 

52 027636 062737 

53 027644 123737 

54 027o52 10335^ 
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C 1^ 
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SEO 013? 



027346 

000144 

070322 
001466 
001426 
000000 
1 77400 
000171 
000010 
101066 
040714 



070340 



000002 
001270 



070334 
070333 
070332 
070326 
070324 
001270 



070332 
070332 



,S8TTl READ DtCU4 FILE 

THIS ROUTINE IS USED TO READ THE DECU4 BAD SECTOR FILE FROM CrLlNDER 

558. TRACK 13. AND TO STORE THE FILE IN IT'S RESPECTIVE DPS TABLE. 

THE DP8 TABLE HAS ENOUGH ROOM TO SAVE THE ENTIRE MFG AND USR PORTIONS 

OF THE DEC144 FILE. (MFG=126. ENTRIES AND USR=126. ENTRIES) EVERY TIME 

THE DRIVE IS ASSI6NNED THE DEC144 FILE 15 READ TO DETERMINE THE STATUS 

OF THE CURRENT PACK SERIAL NUMBER. BUT, IN ORDER TO INITIALIZE THE 

BAD SECTOR ENTRY TABLE, AT LEAST ONE Of FOLLOWING SMTEMENTS MUST BE VALID. 



1) 



OR 



FIRST TIME PROGRAM WAS STARTED 



2) LOCATION 'BADBLK' IS EQUAL TO 1 
OR 

3) LOCATION 'QADBLK' IS EQUAL TO 0 AND THE PACK 
SERIAL NUMBER CHANGED SINCE THE LAST TIME IT WAS 
READ. (DEFAULT) 

NOTE: IF THE SERIAL NUMBER HAS CHANGED, THIS MOST LIKELY MEANS THAT THE 
PACK OR DRIVE HAD BEEN REPLACED WHILE THE DRIVE WAS DEASSIGNED. 

THIS ROUTINE CHECKS THAT THE TWO SERIAL NUMBER WORDS ARE NOT ZERO 
AND ARE POSITIVE NUMBERS. ALSO, WORDS 3 AND 4 ARE CHECKED TO BE ALL 
ZERO WORDS. IF THE DEC144 FILE DOES NOT COMPLY WITH ^hIS STUCTURE, 
AN ERROR MESSAGE IS TYPED AND THE ROUTINE IS EXITED. 



CALL 



MOV *DP8.R0 ;DP8 ADDRESS 

JSR R5.GETADR .-READ DEC144 BAD SECTOR FILES 



RO - DPS ADDRESS BEFORE CALLING THE ROUTINE 



GETADR: 



1$: 



2$: 



MOV 
MOV 
MOV 
JSR 
MOV 
ADD 
MOV 

Move 

MOV 

M0V8 

M0V8 

MOV 

M0V8 

MOV 

MOV 

JSR 

6ENDP8 
BR 

TST 
BEQ 

8PL 
ADD 
CMP8 
BHIS 



;;PUSH R1 ON STACK 
;;PUSH R2 ON STACK 
;;PUSH R3 ON STACK 
;6ET ADDRESS LIMITS 
;DPB ADDRESS 

.•ADDRESS OF BAD SECTOR TABLE 
;;PUSH R1 ON STACK 
.■DRIVE NUMBER 

.-LAST CYLINDER 
;GET LAST TRACK 
#0e6EN0P6+SSEC ;GET STARTING SECTOR OF 16 BIT MFG FJ.F 
#-256.,GENDPe*$WCNT ;ONE SECTOR WORD COUNT 
*RDDAT,GENDP8*$C0MND ;READ DATA COMMAND 
*8.,$CDW2 ;GET LAST SECTOR OF 16 BIT MFG MLE 

*CYLNDR,R3 .GET READ BUFFER ADDRESS 

R0.RM05 .-READ CURRENT SECTOR 



R1,-(SP) 
R2.-<SP) 
R3,-<SP) 
PC.6ETLMT 
R0.R1 

#$BDSEC,R1 
R1,-(SP) 
(R0).GENDP8 
#822.,GENDP8*$CYL 
TRKLMT,GENDP8*$TRK 



1S 

GENDPB^STATUS 

2$ 

3$ 

*2,GENDPB*$SEC 



;WAn FOR QUE 
;READ DONE YET ? 
;BR IF NO 

;BR IF NO ERROR. ELSE 
.•INCREMENT NEXT SECTOR TO READ 
$CDW2,GENDPB+$SEC ;WERE ALL SECTORS TRIED ? 

1$ ;8R IF NO 



CZRMU80 RM05/5/2 PERF EXER 
READ 0ECK4 FILE 



55 027654 

56 027656 

57 027660 

58 027662 

59 027664 

60 027666 

61 027672 

62 027674 

63 027676 

64 027700 

65 027702 
o6 027704 

67 027712 

68 027714 

69 027720 

70 mill 

71 027730 

72 027732 

73 0277^.0 

74 C27742 

75 027750 
76 

77 027756 

78 027762 

79 027764 

80 027766 

81 027770 

82 ^27772 

83 030000 

84 030002 

85 030010 
80 030016 

87 030020 

88 030022 

89 030024 

90 030026 
91 

9? 030030 

93 030034 

94 030036 

95 030042 

96 030046 
030050 
030052 
030053 

97 03C054 

98 030060 

99 030062 

100 030066 

101 030072 

102 030076 

103 030100 

104 030102 

105 030110 
T06 030112 
107 030114 

030M4 



0004?0« 

005723 

005723 

100462 

001003 

005763 

001456 

005723 

001054 

005723 

001052 

123727 

103021 

005737 

001010 

026360 

001004 

026360 

001464 

016360 

016360 

012702 
012321 
012321 
005302 
001374 
123727 
103044 
112737 
012737 
01160-! 
005721 
100376 
005741 
000671 

104401 
000402 
104401 
104401 
011046 
104403 
002 
000 
104401 
012601 
012702 
012721 
012721 
005302 
001372 
012760 
000401 
005726 

012603 
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3$: 



0 11 
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^tO 0155 



1 7777i, 



i 

070332 000012 
001476 

",77770 000140 

W7772 000142 

177770 0001 4C 

177772 0001 4<'' 

000176 



070332 000012 

000012 070332 
000036 001270 



4S: 



5$: 



6S: 
7$: 



077000 

076720 
075625 



001203 

000374 
177777 
177777 



177777 000142 



8$: 



9$: 

10$: 
11$; 



12$: 



13S; 
14$: 



BR 

TST 

TST 

BMI 

BNE 

TST 

BEQ 

TST 

BNE 

Tsr 

BNE 

CMP8 

BHIS 

TST 

BNE 

CMP 

BNE 

CMP 

BEQ 

MOV 

MOV 

MOV 

MOV 

MOV 

DEC 

ONE 

CMP8 

BHIS 

M0V8 

MOV 

MOV 

TST 

BPL 

TST 

BR 

TYPE 

BR 

TYPE 

TYPE 

MOV 

TYPOS 

-BYTE 

.BYTE 

TYPE 

MOV 

MOV 

MOV 

MOV 

DEC 

BNE 

MOV 

BR 

TST 

MOV 



10$ 
(R3)* 
(R3)* 
9$ 
4$ 

-4(R3) 
9$ 

IR3)* 
9$ 

(R3)* 
9$ 

GENDPB*$SEC,#10. 
6$ 

BADBLK 
5$ 

-10(R3).tPSNL(R0) 



BR IF UNSUCCESSFUL ON RETRIES 
ARE LSS'S OF SERIAL NUMBER VALID ■> 
ARE MSB'S OF SERIAL NUMBER VALID ? 
BR IF MINUS 
BR IF PLUS 

ARE SERIAL NUMBERS ZERO ? 
BR IF YES 

IS 3R0 WORD ALL O'S ? 
BR IF NO 

IS 4TH WORD ALL O'S ? 
BR IF NO 

.-READING USR BAD FILE ? 
BR IF YES 

INIT. BAD SECTOR TABLE ENTRIES ? 
BR IF YES 

;ARE LSB'S OF S/N SAME AS BEFORE ? 



5$ ;BR IF NO 

-6(R3) ,$PSNM(RO) ;ARE MSB'S OF S/N SAME AS BEFORE ? 

13$ .BP IF YES 

-10(R3).$PSNL(R0) .-STORE PACK SERIAL NUMBER 

-6(R3),$PSNM(R0) 



*126..R2 

(R3)*.(R1)* 

(R3)*.(R1)* 

R2 

7$ 

GENDP8*$SEC.#10. 
13$ 

*10..GEN0PB*$SEC 

#30..$COW2 

(SP) ,R1 

(R1J* 

8S 

-{RD 
1$ 

.MERR2 

11$ 

.MERR1 

.UNTMSG 

(RO).-(SP) 

2 
0 

.$CRLF 

(SP)*.R1 

*252.,fi2 

#-1.(R1)* 

#-l,(R1)* 

R2 

1?$ 

#-1.$PSN«(R0) 
14$ 

(SP)* 

(SP)*.R5 



.-NUMBER OF ENTRIES PER FILE (MFG/USR) 
.•STORE BAD CYLINDER ADDRESS 
.•STORE BAD TRK/SEC ADDRESS 
.-DONE WITH ENTRIES ? 
;BR IF NO 

;USR BAD FILE DONE YET -> 
;8R IF YES 

;GET STARTING SECTOR OF USR FILE 

GET LAST SECTOR OF USR FILE 

GET BEGINNING OF $BDSEC TABLE 

IS THIS TERMINATOR ? 

BR IF NO 

FOUND TERMINATOR. BACKUP 1 WORD 



REPORT. INVALID DEC144 FILE STRUCTURE 

REPORT. FAILED TO RETRIEVE DEC144 FILES 

TYPE 'ON DRIVE' 

•SAVE (RO) FOR TYPEOUT 

.60 TYPE— OCTAL ASCII 

.TYPE 2 OIGiT(S) 

.SUPPRESS LEADING ZEROS 

CR-LF 

.-POP STACK INTO R1 

TOTAL NUMBER OF ENTRIES ALLOWED 

INITIALIZE CYLINDER LOCATIONS TO -i 

INITIALIZE TRK/SEC LOCATIONS TO -1 

DONE YET ? 

BR IF NO 

INDICATE SERIAL NUMBER IS UNKNOWN 



RESTORE STACK 
.-POP STACK INTO R3 



E 11 

ZRHjeO RH05/5/2 Pi^r EXER »WCRO V04.00 4-APR-81 01:42:23 PAGE 51-2 

OEAD DECK4 FUE 

050116 01260? MOV (SP>».fi2 ;;POP STACK IMTO R2 

C50120 012601 MOV ^SP)»,R1 ;;POP STACK IMTO R1 

108 050122 000205 RTS R5 ;EX1T 



p\'E«i BAD bECTOR ^^OU^INf 



4 



<«IACR0 V04.00 



F 11 

4-APR-81 01.42:if3 PAGE 3? 



1 1 



7 
8 
9 

'0 030^24 
030124 
0301 ^6 
030130 
030132 
030134 
030140 
13 030142 
H 030146 
030150 

16 C30154 
17 

18 030160 

19 030164 

20 030166 

21 030172 

22 030176 

23 030200 

24 030204 

25 030206 

26 030210 

27 030214 
28 

29 050216 
^0 030220 

31 030222 

32 030226 

33 030234 

34 030240 

35 030242 

56 0302^4 

17 050250 

38 C30252 

39 030256 

40 030260 

41 030264 

42 030266 

43 030272 

44 030274 

45 030276 

46 030300 

47 050304 

48 030310 
'.9 030312 
50 03O3U 

57 030320 
52 

53 030522 



C10146 
010246 
010346 
010446 
105737 
001162 
005 757 
001157 
005057 
104401 

012704 
060004 
012701 
0227^4 
001407 
062^04 
005301 
001371 
104401 
000534 

010146 
010446 

012714 
012764 
104401 
104411 
012601 
005737 
OOlOn 
105761 
001021 
122711 
001016 
004737 
000753 
012604 
012601 
012724 
012724 
005301 
001 372 
104401 
000713 



001150 

00-430 

001340 
076640 

000144 

000374 
77777 

000004 
077044 



\77777 
^77777 
077m 



00' 340 
000001 
000114 
030520 



^77777 
^77777 



0772"^? 



.S8TTL ENTER BAD SECTOR ROUTINE 

ROUTINE TO ENTER BAD SECTOR INFORMATION WANUALLV 
CALL: 

MOV #DP8,R0 ;DP8 ADt^RESS 

JSR PCMANTER ;CALL ROUTINE 

RO = DP8 ADDRESS BEFORE CALLING THE ROUTINE 



MANTER: 



2$: 



000002 



3$: 
4S: 



5$: 
6S: 



MOV RI.-(SP) 

MOV R2.-(SP) 

MOV R3.-(SP) 

MOV R4,-(SP) 

TST9 SAUTOB 

BNE 19$ 

TST DRVPAR 

BNE 19S 

CLR CFLAG 

TYPE .ENTADR 

MOV *$8DSEC,R4 

ADD R0.R4 

MOV #<126.»2>,R1 

CMP *-1.(R4) 

9E0 5$ 

ADD *4,R4 

DEC R1 

BNE 2$ 

TYPE .MSFULL 

6R 19$ 

MOV R1,-(SP) 

MOV R4.-{SP) 

MOV #-1.(R4) 

MOV *-1.2(R4) 

TYPE ,MSGCTS 
RDLIN 

MOV (SP)*.R1 

TST CF^AG 

BNE 5$ 

TST8 KRI) 

BNE 7$ 

CMP8 #'L.(R1) 

BNE 7$ 

JSR PCTVLIST 

BR 4S 

MOV (SP)*,R4 

MOV (SP)*.R1 

MOV *-1.(R4)+ 

MOV *-1.(R4)+ 

DEC Rl 

BNE 6$ 

TYPE ,ALOST 

BR IS 



."PUSH Rl ON STACK 
;PUSH R2 ON STACK 
.-PUSH R5 ON bTACK 
;PUSH R4 ON STACK 
RUNNING IN AUTO MODE ? 
BRANCH IF SO 

CHANGE DRIVE PARAMETERS ? 
BR IF NO 

CLEAR THE CONTROL-C FLAG 
MESSAGE TO ENTER... 

INDEX VALUE OF TABLE ADDRESS 

TABLE STARTING ADDRESS 

256. TOTAL BAD SECTORS ALLOWED 

ENTRY IN THE TABLE ? 

BRANCH :■ SO 

ADJUST THE TABLE ENTRY POINTER 
DECREMENT THE BAD SECTOR COUNT 
BR IF TO NEXT ENTRIES POSITION 
TYPE 'BAD SECTOR TABLE IS FULL* 
EXIT.. 

SAVE THE COUNTER AND FIRST 

ENTRY POINTER PAIR 

RESET CYLINDER TO -1 

RESET TRACK/SECTOR FIELD TO -1 

TYPE 'CYL.TRK.SEC = ' 

READ THE ADDRESS 

READ IN TEXT ADDRESS 

CONTROL-C ENTERED ? 

BRANCH IF YES 

WAS IT TERMINATED WITH CARRIAGE RETURN 
BR IF NO 

WAS CHARACTER .AN 'L' ? 
BR IF NO 

TYPE BAD SECTOR LIST FOR USER 

RETRIEVE THE ENTRY POINTER 
RETRIEVE THE COUNT 
RESET THE TABLE 
TO -1 

ALL DONE ? 
BRANCH IF NOT 

TYPE ' • ALL CURRENT ENTRIES LOST •* 
ENTER AGAIN FROM THE FIRST POINTER 



Eh bad sector routine 
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05052? 


01570? 


OOK?? 




MOV 






004557 


C52772 




JSR 




05055? 


05050? 






18$ 




050554 


05050? 






18$ 




050556 


050474 






17$ 




050540 


050546 






8$ 




05054? 


050556 






10$ 




030344 


03035^ 






9$ 




030346 


010214 




8S: 


MOV 


55 


030350 


000444 






BR 


56 


030352 


010214 




9$: 


MOV 


37 


030354 


000452 






BR 


58 


030356 


010214 




10$: 


MOV 


59 












60 


030360 


01^702 


001426 




MOV 




050364 


004537 


032772 




JSR 




030370 


030502 






18$ 




030372 


030502 






18$ 




030374 


030474 






'7$ 




030376 


030404 






11$ 




030400 


030420 






13$ 




030402 


030412 






12$ 


61 


030404 


1 1 0264 


000003 


11$; 


M0V8 


6<^ 


030410 


000424 






BR 


65 


030412 


110264 


000003 


12$: 


M0V8 


64 


030416 


000431 






BR 


65 


030420 


1 1 0264 


000003 


1^$: 


M0V8 


66 












67 


030424 


01 3702 


001424 




MOV 




030430 


004537 


032772 




JSR 




030434 


030502 






18$ 




030436 


030502 






18$ 




030440 


030474 






17$ 




030442 


030456 






15$ 




030444 


C 304 74 






17$ 




030446 


030450 






14$ 


68 


030450 


110264 


000002 


14$: 


M0V8 


69 


030454 


000412 






BR 


70 


030456 


110264 


000002 


15$: 


M0V8 


71 

72 


030462 


005305 




16$: 


DEC 


73 


C 30464 


001406 






BEQ 


74 


030466 


062704 


000004 




ADD 


75 


030472 


000653 






BR 


76 












77 


030474 


104401 


076677 


17$: 


TYPE 


78 


050500 


000650 






BR 


79 


030502 


062706 


000004 


18$: 


ADD 


80 


030506 






19$: 






030506 


012604 






MOV 




030510 


012603 






MOV 




030512 


012602 






MOV 




030514 


012601 






MOV 


81 


050516 


000207 






RTS 


82 












85 








.serTL 


TYPE 


84 













CYLIMT,R2 
R5.CK.DIG 



R2,(R4) 
16$ 

R2.(R4) 
18$ 

R2.(R4) 

TRKLMT,R2 
RS.CIC.DIG 



R2.3(R4) 
16$ 

R2.3(R4) 
'8$ 

R2.3(R4) 

SECLMT.R2 
R5,CK.DIG 



R2.2<R4) 
18$ 

R2.2(R4) 

R3 
18$ 
#4,R4 
4$ 

,8ADENT 
4$ 

#4.SP 

(SP)*.R4 
(SP)*,R3 
(SP)*.R2 
(SP)*.R1 
PC 



TYPE BAP SECTOR LIST 



CARRIAGE RETURN 



.•UPPER LIMIT OF INPUT 
.•CHECK THE DIGIT(S) 
.•CARRIAGE RETURN ONLY ENTERED 
.•PERIOD ONLY ENTERED 
.•ILLEGAL INPUT 

.-TERMINATED WITH A CARRIAGE RETURN 

.•TERMINATED WITH A "." 

.•TERMINATED WITH A "." 

.•CYLINDER ADDRESS 

.•FINISH WITH THE CURRENT ADDRESS 

.•CYLINDER ADDRESS 

;EXIT,PEHI0D ENTERED 

.-CYLINDER ADDRESS FOLLOWED BY ' , ' 

.•UPPER LIMiT OF INPUT 
.•CHECK THE DIGIT (S) 
.•CARRIAGE RETURN ONLY ENTERED 
.•PERIOD ONLY ENTERED 
.•ILLEGAL INPUT 
.•TERMINATED WITH A 
.•TERMINATED WITH A 
.•TERMINATED WITH A "." 
; TRACK ADDRESS 

.•TRACK NUMBER FOLLOWED BY CR 
.•TRACK ADDRESS 

;EXIT. TRACK NUMBER FOLLOWED BY 
.•TRACK ADDRESS FOLLOWED BY ' , ' 

; UPPER LIMIT OF INPUT 
.•CHECK THE DIGIT (S) 
.•CARRIAGE RETURN ONLY ENTERED 
.•PERIOD ONLY ENTERED 
.•ILLEGAL INPUT 

;TEfWINATED WITH A CARRIAGE RETUR\ 
.•TERMINATED WITH A "." 
.•TERMINATED WITH A "." 
'SECTOR ADDRESS 

•EXIT, SECTOR ADDRESS FOLLOWED BY ' 
.•SECTOR ADDRESS 

.•MORE ENTRY S ? 

;8RANCH IF EXHAUSTED 

.•ADJUST FOR THE NEXT TABLE ENIRY 

.•ENTER NEXT SECTOR ADDRESS 

.•MESSAGE BAD ENTRY 

.•ENTER SECTOR ADDRESS AGAIN 

.•CLEAR OFF THE STACK POINT 

;;POP STACK INTO R4 

;;POP STACK INTO R3 

;;POP STACK INTO R2 

;;POP STACK INTO R1 
.-EXIT 



'YPt BAD 0UT3R .IS' 



85 
86 
87 
88 
89 
90 
91 
92 
93 



EXER 



HACRO V04.00 



H 11 

4-APR-81 01:42:23 PAGE 32-2 



^fQ 015/ 



94 
35 
% 
97 
98 
99 
100 
101 
102 
10? 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
lib 
116 
117 
118 
119 
"20 
121 
122 
123 
124 
125 
V6 
V7 
'28 
129 



030520 
030520 
030522 
030526 
030532 
030534 
030536 
030542 
030544 
030546 
030552 
030556 
030560 
030564 
030566 
030572 
030576 
030602 
030604 
030606 
030610 
030614 
030616 
030622 
030626 
030632 
030634 
030636 
030642 
030646 
030652 
030654 
030656 
030660 
030664 
030670 
030674 
030676 



ROUTINE TO LIST BAD SECTORS ON THE TERMINAL IN DECIflAL NU^fRS 

FORMAT IS: CVL.tRk.SEC 

CALL: 

MOV #DP8.RC ;DP8 ADDRESS 

JSR PC.TYLIST ;CALL ROUTINE 

RO = DP8 ADDRESS BEFORE CALLING THE ROUTINE 

TYLIST: 



010146 




MOV 


RI.-(SP) ; 


.•PUSH R1 ON STACK 
TYPE •DEC144 AND MANUAL BAD SECTOR LIST' 


104401 


077166 


TYPE 


.LSIHDR 


012701 


000144 


MOV 


#$8DSEC,R1 


INDEX VALUE OF TABLE ADDRESS 


060001 


ADD 


R0.R1 


TA8LE STARTING ADDRESS 


010146 




MOV 


RI.-(SP) 
#-1.(R1) 


SAVE ADDRESS FOR LATER 


022711 


M7777 


1$: CMP 


TERMINATOR OR NO ENTRY IN THE TA8LE ? 


001444 




BEQ 


6$ 


BRANCH IF YES 


011146 




MOV 


(RI).-(SP) 


GET CYLINDER NIW3ER 


004737 


033150 


JSR 


Pc.$sa2D 


CONVERT NUMBER 


004737 


032134 


JSR 


PC.SUPRSL 


LEFT JUSTIFY AND TYPE 


005046 




CLR 


-(SP) 


CLEAR HI BYTE AND PUSH STACK 


116116 


000003 


M0V8 


3(R1).(SP) 


GET TRACK NUMBER 


100407 




BMI 


?$ 


8R IF ALL BAD 
•TYPE '.' . 
■CONVERT NLWBER 


104401 


075617 


TYPE 


.COMMA 


004737 


033130 


JSR 


PC , $S82D 


004737 


032134 


JSR 


PC.SUPRSL 


•LEFT JUSTIFY AfiD tyPE 


000401 




BR 


3$ 




005726 




2$: TST 


(SP)* 


; RE STORE STACK 


005046 




3$: CLR 


-(SP) 


; CLEAR HI BYTE AND PUSH STArr 


116116 


000002 


M0V8 


2(R1),(SP) 


;GET SECTOR NUMBER 


100407 




BMI 


4$ 


;8R IF ALL BAD 

.•TYPE '.' 

; CONVERT NUMBER 


104401 


075617 


TYPE 


.COMMA 


004737 


033130 


JSR 


PC.$S82D 


004737 


032134 


JSR 


PC.SUPRSL 


;LEFT JUSTIFY AND TYPE 


000401 




BR 


5$ 




005726 




4$: TST 


(SP)* 


.•RESTORE STACK 


104401 


001203 


5S: TYPE 


.SCRLF 


.•CR-LF 


062701 


000004 
001 340 


ADD 


#4,R1 


.•INCREMENT POINTER 


0057?7 


TST 


CFLAG 


;CONTROL-C ENTERED ? 


001731 




BEO 


1$ 


; BRANCH IF NO 


022601 




6$: CMP 


{SP)*,R1 


;ANY ENTRIES ? 


001002 




BNE 


7$ 


;8R IF YES 

;TYPE 'NO ENTRIES' 


104401 


077146 
001203 


TYPE 


.NOENTY 


104401 


?%: TYPE 


.SCRLf 


; CR-LF 


005037 


00 1 340 


CLR 


CFLAG 


; CLEAR CONTROL FLAG 


012601 




MOV 


{SP)*,R1 


;;POP STACK IN^O R1 


000207 




PTS 


PC 


.•RETURN 



I n 

^MCS/^/? PERF EKER "lACftO V04.00 4-APR-81 C1:A2:i'5 PAGE 35 

.S8TTL PAftAMCfER ENTRY ROUTINE 











.•PARAMETER ENTRY 


Oni IT IMF 










./All 




w^l/i^ « ^ J 


c 








* 


urn i 

MOV 










• 






f 
o 
0 


C XC\7C\C\ 


■Tin z/. A 




PAMtNl ; 


MOV 






(\Xr\ 7C\ 5 


00Q077 
UUjUS' 


noi 7Z.O 

\J\,' 1 j«»L 




r 1 o 
CLR 




' 'J 


J3Uf Uo 


01 5777 

V 1 c 3jf 


07071 ^ 
U 5u ' ID 


1 »: 






1 1 


0 jU' 1 c 


or 1 Z. A 5 

UU 1 '•HC 








f 9 


1 3 


r>7r\7i / 


1 UmmU I 






T WDC 




■« ■» 
1 J 


\jyjf ID 


ooriooo 
uuuuuu 








Q 






u ' c juc 






nUV 


(RX)4 RP 


1 J 


J j<Jr cc 


oi 570*; 

U 1 C JU J 






HUv 


(RX)'f ft5 


1 

10 




01 1 KL^ 
U 1 1 5HD 






nuv 


(R5) -(^P) 

\r\ J f 0 V / 


■» 7 

1 f 




1 u*»*»v J 










1 A 


n7n77n 


1 U*»*»U 1 


\J ' 1 HUH 




T VDC 

1 Yrt 




1 Q 


n'?n7'?A 

UjU' j** 


1 C\LL 1 1 
1 U*»*» f 1 






DIM Tkl 






rTn7'^A 


U 1 cDU 1 






MOW 

HUV 




c • 


n?n7An 


UU J ' Jf 


001 1<L0 
UU • JHU 




TCT 




7? 


n?n7AA 


001 0?1 

UU 1 Uc 1 








6S 


C J 


n?n7A^ 


00^'i77 

UUS J J f 


0X577? 

U JC lie 




ICD 


r5 ck dig 




n?ri7'5? 


01070^ 

UjU' UD 






1 9 






n'^n7*>z. 


U J 1 UcU 






7e 

'9 






WjU' jo 


Oin77P 

UJU 're 






H» 






u JU ou 


UjU' Ou 






7C 






U jU' Oc 


0707''? 
U JU ' 1 c 






At 






U jUf D** 


01100^ 

U J 1 UUH 






cc 

5> 


RP (RS) 




U3U' oo 


U 1 Uc f J 




7C • 

j» : 


ItUV 


5C 

C 3 


U jU f r U 


\J\AJi ••D 






BO 
tJK 


1$ 


;>^^ 

CO 


U JUf f c 


1 U '"U 1 


()7^fi77 

U r UU r f 


H» : 


T VDC 

1 TrC 


fiADPNT 


?7 

c ' 


01077A 

U jU f fO 


1 Dc ' U J 


ooonnf» 










C3100? 


000741 






BR 


1S 


29 


031004 


010215 




5$: 


MOV 


R2,(R5> 


30 


031006 


000404 






BR 


7$ 


31 


031010 


005037 


001340 


6$: 


CLR 


CFLAG 


32 


C510U 


011603 






MOV 


(SP).R3 


3? 


031016 


000733 






BR 


IS 


34 


031020 


005726 




7$: 


TST 


(SP)* 


35 


031022 


000207 






RTS 


PC 



.-PARAT'zTER TABLE ADDRESS 
;GET THE PARAMETERS 

.•SAVE THE PARAMETER TABLE ADDRESS 

.•CLEAR THE 'CONTROL C FLAG 

.•ADDRESS OF PARAMETER NAME 

;8R IF AT END OF TABLE 

;TVPE THE PARAMETER NAME 

.•ADDRESS OF PARAMETER NAME TEXT 

.•MAXIMUM PARAMETER VALUE 

.•ADDRESS OF PARAMETER 

.•CURRENT VALUE OF PARAMETER 

;TYPE THE CURRENT VALUE OF THE PARAMETER 

;• / • 

;READ THE KEVBOARD 
.•INPUT ASCII STRING ADDRESS 
.•'CONTROL C ENTERED ? 
;8R IF IT WAS 
;CHECX THE DIGIT (S) 
.■CARRIAGE RETURN ONLY ENTERED 
.■PERIOD ONLY ENTERED 
.•ILLEGAL INPUT 

.•TERMINATED WITH A CARRIAGE RETjPN 
.•TERMINATED WITH A 
.•TERMINATED WITH A 

;MOV£ NEW VALUE TO PARAMETER LOCATION 
.-GET MORE PARAMETERS 
;*8A0 ENTRY' 

.•DECREMENT THE TABLE POINTER 
:TRY AGAIN 
.NEW VALUE 
.•EXIT 

.•CLEAR THE 'CONTROL C FLAG 
.•RELOAD THE PARAMETER TABLE ADDRESS 
;TRY AGAIN 

.•CORRECT THE STACK POINTER 
.•RETURN 



CZRMUBO RM05/5/2 PERF EXE« 
PARAMETER ENT9Y RCXiTINE 



1 
2 
3 
A 
5 
6 
7 



^CttO V04.00 



J 11 

4-APR-81 01:42:i!3 PAGE 



SEO 0159 



TYPEOUT ASSJGN/DEASSJGN ERROR MESSAGE 
CALL: 

MOV *MESADR.ASNMSG ;ERROR MESSAGE ADDRESS 

JSR PCASNERR 

RETURN 



031024 

8 031030 

9 031 03A 
10 031 OAO 



11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 



32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 



031042 
031044 
031045 
031046 
031050 
0310'J? 



104401 
104401 
104401 
010446 

104403 
002 
000 
104401 
000000 
000207 



001203 
075613 
075625 



ASNERR: TYPE 
TYPE 
TYPE 
MOV 



TYPOS 

.BYTE 

.BYTE 

TYPE 

.WORD 

RTS 



,$CRLF 
,QUES 
.UNTMSG 
R4,-(SP) 



2 

0 



ASNMSG: 



0 
PC 



: CR-LF 

•TYPE 'DRIVE* 

;;SAVE R4 FOR TYPEOUT 

;;TYPE DRIVE ^IU^BER 

;;G0 TVPE —OCTAL ASCII 

;;TYPE 2 DIGIT(S) 

; .-SUPPRESS LEADING ZEROS 

;TYPE SPECIFIC MESSAGE 

;MESSAGE ADDRESS 



DEASSJGN DRIVE IF A FATAL ERROR OCCURS 
CALL; 













JSR 


PC. DROP 












RETURN 




031054 


005004 






DROP: 


CLR 


R4 


031056 


111004 








M0V8 


(R0).R4 


031060 


146437 


040142 


001530 




BIC8 


ATA8IT(R4),ASNLST 


031066 


146437 


040142 


031662 




BICB 


ATA8IT(R4).AUTLST 


031074 


006304 








ASL 


R4 


031076 


010064 


001532 






MOV 


R0.DUNIT(R4) 


031102 


104401 


001203 






TYPE 


,$CRLF 


031106 


104401 


076236 






TYPE 


.DPOPNG 


031112 


104401 


07631 1 






TYPE 


.MSGON 


031116 


104401 


075625 






TYPE 


.UNTMSG 


031122 


006204 








ASR 


R4 


031124 


010446 








MOV 


R4.-(SP) 


031126 


104403 








TYPOS 




031130 


002 








.BYTE 


2 ; 


031131 


000 








.8YTP 


0 


031132 


000207 






1$: 


RTS 


PC 



.•REMOVE DRIVE FROM ASSIGNED LIST 
.•DELETE DRIVE FROM AUTO ASSIGN lIST 
MAKE DRIVE NUMBER INTO A TABl E INDEX 
PUT DRIVE r DROP LIST 

TYPE 'FATAL OR EXCESSIVE ERRORS' 
TYPE 'ON* 
TYPE 'DRIVE* 
DRIVE NUMBER 
SAVE R4 FOR TYPEOUT 
TYPE DRIVE NUMBER 
GO TYPE— OCTAL ASCII 
TYPE 2 DIGIT(S) 
SUPPRESS LEADING ZEROS 



.•ROUTINE TO DEASSI6N DRIVE IF ERRORS BECOMES EXCESSIVE 

031134 032777 000020 150012 A8NRML : BIT #SW04.aSWR ;S£E IF SWITCH 4 SET 

031142 001006 BNE 1$ ;8R IF IT*S SET 

031144 023760 001444 000072 CMP MAXER,$T0TAL (RO) ; CHECK TOTAL ERROR VALUE 

031152 101002 BHI 1$ ;8R IF ERRORS DO NOT EXCEED MAX 

031154 000137 031054 JMP DROP ;DEASS1NG THE DRIVE 

031160 000207 1$; RTS PC ;RETURN 



.•ROUTINE TO CHECK FOR END OF PASS AND END OF TEST 



L 



f\D J PASS ROUMME 



|>1ACR0 V04.00 



K 11 

4-APR-81 01:42:i!5 PAGE 35 



.S8TTL END OF PASS ROUTINE 



•INCREMENT THE PASS NUMBER (SPASS) 
•IF THERE S A MONITOR GO TO IT 
;»IF THERE ISN'T JUMP TO RTURN 



r>7i 1 ^0 
0 5 1 IOC 












ATI 1 z 5 




oni AAA 






1 o 1 


A ■7 1 1 f.dL 

U J M OO 


oni L^y 








DC w 


031 1 70 


026037 


000040 


001 4 3«) 




CMP 


031 1 76 


101020 








BHI 












Rl 0 


U J 1 cUc 


n?A077 


ooon7A 


vv 1 H J** 




CMP 


071 51 n 


1 0701 ^ 










\Jj IC IC 


noo?n7 






It- 

1 ^ ■ 


RTS 


071 ?1i 


0?ft0^7 


000046 


001442 




CMP 


n^i ??? 


10100^^ 








BHI 


0^1 ?Pi 


1 O^^O^ 








BLO 


n^i 


0?^^0^7 


000042 


001440 




CMP 


n^i 


10^001 








BHIS 


071 ?7A 


000207 






1 $• 


RTS 




010446 






F0P2: 


MOV 


071 ?AP 


032777 


000400 


14/704 




BIT 


O^IPSO 


001023 








BNE 


031252 


104401 


001203 






TYPE 


031256 


104401 


076272 






TYPE 


071P6? 


016046 


000104 






MOV 


071 ?6A 


1 0440S 








TYPDS 


071 P7n 


111037 

III \JJI 


001 324 






MOVB 


071 P7A 


104401 


07631 1 






TYPE 


071 ?00 


104401 


075625 






TYPE 


031304 


013746 


001324 






MOV 


031310 


104403 








TYPOS 


0^1 ^1? 


002 








BYTE 


0^1 ^1 ^ 


000 

\J\J\J 








BYTE 


0^1314 


104401 


001 203 

\J\J 1 b 






TYPE 


031 3?C 


1 11004 






1$: 


M0V8 


031 3?? 


105737 


001150 






TST8 


031 326 


001410 








BEO 


031 330 


1 36437 


040142 


031662 




BITS 


031336 


001071 








BNE 


031340 


1 56437 


040U2 


031662 




6158 


037 346 


000443 








BR 


031350 


026037 


000104 


001456 


2$: 


CMP 


031356 


103437 








BLO 


031360 


032777 


000020 


147566 




BIT 


031366 


001033 








BNE 


031370 


104401 


076316 






TYPE 


031374 


104401 


076334 






TYPE 


031400 


104401 


075625 






TYPE 


031404 


013746 


001324 






MOV 


03^410 


104403 








TYPOS 



ENDING 
EO'Jl 

$ENDAr*2(R0),ENDC0N*2 
E0P2 
1$ 

$ENDAT(R0).FNDC0N 



E0P2 
PC 



;END OF PASS DETERMINED BY SEEKS OR DATA WORDS •> 
.•8R IF SEEKS 

.•CHECK MSW OF WORDS DATA COUNT 
;8R IF MSW GREATER THAN LIMIT 
;8R IF MSW LESS THAN LIMIT 

.•CHECK LSW AGAINST LIMIT 



;8R IF EQUAL OR GREATER 



$ENDSK*2(R0),ENDSEK*2 .-CHECK MSW OF SEEK COUNT 
E0P2 ;8R IF MSW GREATER THAN LIMIT 

1$ .-EXIT IF MSW LESS THAN LIMIT 

$ENDSK(RO).ENDSEK .-CHECK LSW OF SEEK COUNT 

E0P2 .-8R IF EQUAL OR GREATER 

PC 



R4.-(SP) 

/yswo8,aswR 

1$ 

,$CRLF 
.ENDPAS 

$PASSC(RO),-(SP) 

(RO).UNIT 
.nSGON 
.UNTMSG 
UNIT.-(SP) 



2 
0 

,$CRLF 
<R0),R4 

SAUTOB 
2$ 

ATA8IT(R4),AUTLST 
6$ 

ATA8IT(R4).AUTLST 
3$ 



SAVE R4 

INHIBIT END OF PASS TYPEOUT ? 

8R IF YES 

CR-LF 

END OF PASS FOR THE DRIVE 

;;SAVE $PASSC(RO> FOR TYPEOUT 
;G0 TYPE— DECIMAL ASCII WITH SIGN 
STORE THE DRIVE NUfBER 
TYPE 'ON' 
•DRIVE • 

.-SAVE UNIT FOR TYPEOUT 
;G0 TYPE— OCTAL ASCII 
.-TYPE 2 DIGIT(S> 
; SUPPRESS LEADING ZEROS 
CR-LF 

MOVE DRIVE NUTBER 

RUNNING IN AUTO MODE ? 
SR IF NO 

;IS DRIVE ALREADY ASSIGNED TO AUTO LIST 
SR IF YE S 

.-ADD DRIVE TO AUTO ASSIGN LIST 



$PASSC(RO), PASSES 
3$ 

«'SW04.SSWR 
3$ 

.ENDTST 
.MSGFOR 
.UNTMSG 
UNIT.-(SP) 



;SEE IF AT END OF TEST 
8R IF NOT 

TYPE END OF TEST MESSAGE ? 
8R IF NO 

TYPE 'END OF TEST' 
TYPE 'FOR* 
•DRIVE ' 

.-SAVE UNIT FOR TYPEOUT 
;G0 TYPE— OCTAL ASCII 



'7«MUB0 RM05/5/? PERF EXER 
END OF PASS ROUTINE 



A71 A 1 3 










U J ' *• 1 J 














0A01i5 


001 "j^O 




U J 1 Hcc 


OOA70A 










0100AA 


001 S7? 






03U30 


105737 


001530 






03U3A 


001041 










00«;P77 


001 ?16 








00«;?77 


001 ?1i 






\J J 1 HHO 


0^?7'^7 


1 00000 


001P14 




\Jj 1 H J*« 


OOOA 7 1 










KJDC tit 


OOOiOO 


147470 


3i' 


03K6A 


001002 








03U66 


004737 


023636 






071^7? 


0107^^ 










01 000^ 










\JOCI wH 


000036 






071 SO? 


01?70^ 

VIC' V/^ 


000006 






031506 


005024 






5$: 


071 SIO 


OOS'^O^ 








071 "il ? 


001 ^75 

\J\J \ J 








071 "il^ 










071 S1^ 










031522 


105737 


001150 




6$: 


051526 


001404 








071 S 70 


0?^7^7 

\JC Jt Jl 


001 s^o 


031662 




071 S V> 


001^0? 

\J\J 1 H\JC 








071 ^L.(\ 


01 P^^Oi 






7$- 


071 S^P 


f)00?07 








071 'kLL 


00'>?^7 


071 662 




• 




001 375 

\J\J 1 Jr ^ 










01P737 

VIC' J ' 


000340 


I f f f I \J 






005P37 


001216 






v J 1 JO** 


005237 

\J\J JCJ i 


001214 






V J 1 J f \J 


04P737 

V** C t Jt 


1 OOOOP 


001214 






005327 

\J\J J JC f 








0^1 ADO 


000001 

\J\J\J\J\J 1 










003013 










012737 








071AO/i 


000001 






SFNDCT: 


031610 


031600 








031<'>1? 


01 3700 


000042 






071616 


001405 










000005 










004710 






SENDAD: 


031 62A 


000240 








031626 


000240 








031630 


000240 








031632 








$DOAGN: 


031632 


000137 








031634 


031636 






SRTNAD: 


2 

3 031636 


012706 


001100 




RTURN: 



l>1ACR0 V04.00 4-APR-81 



.8rTE 

.BYTE 

BJCB 

ASL 

MOV 

TST8 

BNE 

INC 

INC 

BIC 

BR 

BIT 
BNE 
JSR 
MOV 
MOV 
ADO 
MOV 

CLR 
DEC 
BNE 
MOV 
INC 

TSTB 

BEO 

CMP 

BEO 

MOV 

RTS 

INC 

BNE 

MOV 

INC 

INC 

BIC 

DEC 

.WORD 

BGT 

MOV 

.WORD 

SEOPCT 

MOV 

BEO 

RESET 

JSR 

NOP 

NOP 

NOP 

JMP 
.WORD 

MOV 



L 11 

01 :«.2:23 PAGE 35-1 



2 ;;TrPE 2 DIGIT (S) 

0 ; .-SUPPRESS LEADING ZEROS 

ATA81T{P4),ASNLST .'DELETE DRIVE FROM ASSIGNED LIST 



R4 

R0,DUNIT(R4) 

ASNLST 

7$ 

SDEVCT 
SPASS 

*1 00000. tPASS 
7$ 

«sw08.aswR 

41 

PC.SUMARY 

R3,-(SP) 

R0,R4 

mNDAT,R4 
#6,R3 

{R4)* 

R3 

5$ 

(SP)+.R3 
$PASSC(RO) 

SAUTOB 
7$ 

ASNLST, AUTLST 
8S 

(SP)*.R4 
PC 

AUTLST 
8S 

#PR7,PS 

SDEVCT 

tPASS 

*1 00000. SPASS 

(PC)* 

1 

SDOAGN 

(PC)*,a(PC)* 

1 

axr42.R0 

SDOAGN 

PC,(RO) 



a(PC)* 

RTURN 



;MAKE DRIVE NUMBER INTO TABLE INDEX 
;PUT BLOCK ADDRESS INTO DROP LIST 
.-ALL DRIVES ARE DEASSIGNED ? 
;8R IF NO 

.•INCREMENT DEVICE COUNT 
.•INCREMENT THE PASS COtJNT 
.•AVOID NEGATIVE f^flJMBER 



INHIBIT END OF PASS TYPEOUT ? 
BP IF YES 

TYPE THE DRIVE'S STATISTICS SUMMARY 
SAVE R3 

DRIVE'S BLOCK ADDRESS 
ADD THE STARTING ADDR 
NUMBER OF LOfNS TO BE 
(CLEAR SENDAT, SENDSK 
CLEAR THE LOCN 

DECREMENT THE LOCATION COUNTER 
BR IF MORE TO GO 
RESTORE R3 

INCREMENT THE PASS COUNT 



OF SECTIONS TO CLEAR 
CLEARED 

AND SOPERC COUNTERS) 



RUNNING IN AUTO MODE ? 
BR IF NO 

HAVE ALL DRIVES COMPLETED PASS IN AUTO MODE 
8R IF YES 
RESTORE R4 
RETURN 

CLEAR AUTO ASSIGN LIST FOR NEXT PASS AND 
WAIT FOR TTY 

DON'T ALLOW ANY INTERRUPTS 
INCREMENT DEVICE COUNT 
.•INCREMENT THE PASS NUMBER 
.•DON'T ALLOW A NEG. NU»«ER 
;LOOP? 

;YES 

.•RESTORE COUNTER 



;:GET MONITOR ADDRESS 

; .BRANCH IF NO MONITOR 

;; CLEAR THE WORLD 

;;G0 TO MONITOR 

;;SAVE ROOM 

;;FOR 

;;ACT11 

;; RE TURN 



#STACK,SP 



.•RESTORE STACK 



■"ZRMUBO RM05/^/2 PER' EXER MAC«0 V04.00 4-APR-81 

END OF PASS ROUTINE 

U 0516A2 005257 001212 INC 

5 051646 004737 C 33226 JSR 

6 031652 004737 023544 JSR 

7 051656 000157 006142 JMP 
8 

9 031662 000000 AUTLST: .WORD 



M 11 

01 :42:23 PAGE 55-2 



SfO OU? 



STESTN ; INCREMENT THF TEST NIW8ER IN THE MAIL BOX 

PC.ITKINT .-MAKE SURE KEVSOARD INTERRUPT AND 

PC.CKCLK .-SYSTEM CLOCK ARE STjLL ON. 

MAIN .-RETURN TO LOOP 

0 ;AUTO ASSIGN I 1ST (USED IN AUTO RUN MODE) 



015746 037024 
013746 037022 
010546 

004737 031710 
012605 
005726 
000207 



CZRMUBO RM05/3/2 PBRF EXER 
END OF PASS ROUTINE 



1 
2 
3 
4 
5 
6 
7 

8 031664 

9 031670 

10 031674 

11 031676 

12 031702 

13 031704 

14 031706 
15 

16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 

39 031710 

40 031712 

41 031716 

42 031720 

43 031724 

44 031730 

45 031732 

46 031734 

47 031740 

48 031744 

49 031750 

50 031752 

51 031754 
52 

53 
54 
55 
56 
57 



MACRO V04.00 



N 11 

4-APR-81 01:42:23 PAGE 36 



104412 
016605 
005004 
016602 
016603 
005000 
005001 
004737 
010166 
010366 
104413 
012616 
000207 



000026 

000030 
000032 



031756 
000030 
000032 



ROUTINE TO GET THE REMAINDER OF THE RANDOM NtJMBER 
CALL : 

MOV NUMBER. R5 .-DiViSOR INTO R5 

JSR PCGETREM 

RETURN .-REMAINDER IS IN R5 



GETREM: MOV 
MOV 
MOV 
JSR 
MOV 
TST 
RTS 



$LONUM.-(SP) 

$HINUM.-(SP) 

R5.-(SP) 

PC.SDIV 

(SP)*,R5 

(SP)* 

PC 



STORE RANDOM NUMBER ON THE STACK FOR DIVIDE 
UPPER PART 

PUT THE DIVISOR ONTO THE STACK 
DIVIDE THE RANDOM NUMBERS 
PUT THE REMAINDER INTO R5 
ADJUST THE STACK POINTER 



.S8TTL INTEGER DIVIDE ROUTINE 



*THIS ROUTINE WILL DIVIDE A 32-8IT TWO'S COMPLEMENT INTEGER 
•DIVIDEND BY A 16-81 T TWO'S COMPLEMENT INTEGER DIVISOR GIVING 
•A 16-81 T TWO'S COMPLEMENT INTEGER QUOTIENT AND A 16-8IT REMAINDER. 
•DIVISION WILL BE PERFORMED SO THAT THE REMAINDER IS OF THE 
•SAME SIGN AS THE DIVIDEND. 



•CALL: 



MOV 
MOV 
MOV 
JSR 

RETURN 



LOW DIVIDEND, -(SP) 
HIGH DIVIDEND, -(SP) 
DIVISOR.-(SP) 
PC.tDIV 



;;THE HIGH DIVIDEND MUST BE < 1/2 
;;AS LARGE AS THE DIVISOR 



.-.•QUOTIENT & REMAINDER ARE ON THE STACK 



STACK NO ERROR 



* — — — - 
» TOP 

• *2 



REMAINDER 
QUOTIENT 



OVERFLOW 

ALL ZEROS 
ALL ZEROS 



DIVIDE BY ZERO 

ALL ONES 
ALL ONES 



* 

•NOTE ; 
SDIV: 



THIS ROUTINE WILL LINK TO THE DIVISION SUBROUTINE CM.DPID'), 



SAVREG 

IWV 

CLR 

MOV 

MOV 

CLR 

CLR 

JSR 

MOV 

MOV 

RESREG 

MOV 

RTS 



26(SP),R5 
R4 

30(SP).R2 

32(SP),R3 

RO 

Rl 

PCM.DPID 
R1.30'SP) 
R3.32(SP) 

(SP)*,(SP) 
PC 



STORE RO - R5 
DIVISOR 

OTHER DIVISOR WORD 

UPPER DIVIDEND WORD 

LOWER DIVIDEND WORD 

CLEAR OTHER DIVIDEND REGISTERS 

GO TO THE DIVIDE ROUTINE 
REMAINDER ON THE STACK 
QUOTIENT ON THE STACK 
RESTORE RO - R5 
MOVE RETURN UP THE STACK 



,S8TTL DOUBLE PRECISION DIVISION SUBROUTINE 



CALL : 



JSR 



PCM.DPID 



•.fXeL£ PREflSION DIVISION VJaftOtTINE 



B 12 
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S8 

6C 
61 
t2 
63 
6A 
65 
66 
67 
68 
o9 
'0 
71 

72 
71 
74 
75 
76 
/7 
78 
79 
80 
81 
82 
83 
8A 
85 
8o 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
'07 
1U8 
109 
710 
in 



03' 756 
031 762 
C3V64 
031766 
031772 
031774 
032000 
032002 
032004 
032010 
032012 
C32014 
032016 
032020 
032022 
032024 
032026 
032030 
032032 
032036 
032040 
032042 
032046 
032050 
032052 
032054 
032056 
032060 
032062 
032064 
032066 
032070 
032074 
032076 
032100 
032102 
032104 
032106 
C 32110 
032112 
032114 
032120 
032122 
032124 
032130 
032132 



012746 
010446 
010546 
005466 
005416 
005666 
061601 
005500 
066600 
103445 
005046 
006103 
006102 
006101 
006100 
005716 
CJ1410 
005016 
066601 
005500 
005516 
066600 
000404 
060501 
005500 
005516 
060400 
005516 
005716 
001401 
005203 
005366 
003347 
006003 
103404 
060501 
005500 
060400 
000241 
006103 
062706 
000242 
000207 
062706 
000262 
000207 



DIVIDEND = RC-R1-R2-R3 (RO=MSD) 
DIVISOR = Rf-R5 (R4-«SD) 



RETURN 



REMAINDER AfTER tlVlSION = RO-RI (RO=«SD) 
QUOTIENT AFTER DWISION = R2-R3 (R2=«SD) 



000040 

000002 
000002 

000002 



M.DPID: 



NI.DP40: 



000002 
000004 



M.DP41: 



M.DP42: 



000006 



000010 
000006 



M.DP44: 



M.DP50: 









nuv 




• u t flu nonF o 


nUV 










• t nOM lUC ^A T 1 k/F 

, r uwn IMC o« 1 J vc 


KtCfi 

Ntu 


aco 




cor 


5 ( <LD\ 
C V of ) 




L.t\t\ 

wo 








RO 


•PFBFDQM TMf tMITIAl (blRTRArTinM 


Ann 


2(SP).R0 






n. vf>\j 


• TARRv tmfm nvf RFi nu ha^ nrriARFn 


ri o 






nUL 






nUL 


B? 










QDl 










•TF^T "fARRY" INniCATOR 


oc w 




•IF lun 'TARRY" THFN ADD Fl ^lATRAf T 






•riFAR IIP FOR ItfXT TtMF 


Ann 










•ADD -(DIVl^riR) 


Anr 


a^p * I 


•^FT "fARRY" 


Ann 




RI) 






Ann 


R^ R1 




Anr 


RO 


•ADD ♦(DIWl^QR) 
•SET "CARRY" 


Aor 




ADD 








a^P 


•SET "CARRY" 




a^p 


•TFST THE UPDATE INDICATOR 




♦4 


•IF ZERO FORGET IT 




R3 I 


■NO CARRY POSSIBLE HERE 






-DECREMENT COUNTER 

0 V**k' rk > V > W V ' k ' • 




n. DP40 


'BRANCH IF nOR^ TO DO 


ROR 


R3 




BCS 


M.DP44 




ADD 


R5.R1 




ADC 


RO 




ADD 


R4,R0 




CLC 




• 


ROL 


R3 


i 


ADD 


#10, SP 


.•ADJUST STACK BY 4 WORDS 


CLV 






RTS 


PC 




ADD 


#6.SP 




SEV 






RTS 


PC 





,> PC(< - ■'vpf ASCIZ. REPLACE 



nACRo vOA.oo 

LEADING O'S WITH 



4-APR-81 
BLANKS 



01:42:^3 



C 

PAGE 



12 
3/ 



SfO 0U5 



4 
5 
6 

7 

8 
9 

'0 

11 

12 0321 3A 0 00A6 

13 032136 016600 OOOOOA 
^4 032142 005037 032224 
15 032146 000405 

16 

17 032150 010046 

18 032152 016600 000004 

19 032156 010037 032224 

20 032 162 

21 032162 105710 

22 032164 001406 

23 032166 122710 000060 

24 032172 001006 

25 032174 112720 000040 

26 032200 000770 

27 032202 005300 

28 032204 112710 000060 

29 032210 005737 032224 

30 032214 001002 

31 032216 010037 032224 
52 032222 104401 

33 032224 000000 

34 032226 012600 

35 032230 012616 

36 032232 000207 



.S8TTL SUPRS - TVPE ASCIZ, REPLACE LEADING O'S WITH BLANKS 
.S8TTL SUPRSL -TYPE ASCIZ. LEFT JUSTIFY 



CALL: 
OR 

SUPRSL ; 
SUPRS : 



SUPR1 
1$: 



2$: 
3$: 



4$: 

SUPR2: 



nuv 




JSR 


PC, SUPRS 


MOV 


#NUMADR.-(SP> 


1 CD 
J on 


or CI lODCi 


MOV 


RO,-(SP> 


MOV 


4(SP).R0 


CLR 


SUPR2 


BR 


SUPRl 


MOV 


RO.-(SP) 


MOV 


4(SP).R0 


MOV 


R0.SUPR2 


TST8 


(RO) 


BEG 


2$ 


CMP8 


*'0.(R0) 


BNE 


3S 


M0V8 


#40, (RO)* 


BR 


IS 


DEC 


RO 


M0V8 


*'0.(RO) 


TST 


SUPR2 


BNE 


4$ 


MOV 


R0,SUPR2 


TVPE 




.WORD 


0 


MOV 


(SP)*.RO 


MOV 


(SP)*,(SP) 


RTS 


PC 



: FIRST ADDRESS OF ASCIZ STRING 



.•FIRST ADDRESS OF ASCI7 STRING 



;GET POINTER TO MESSAGE 



SAVE RO 

GET POINTER TO MESSAGE 
GET POINTER FOR TvPlMG 

TEST FOR TERMINATOR 
YES 

IS THIS A "0" ? 
NO 

REPLACE IT WITH A 'BLAf^C" 

NEXT CHAR. 

BACKUP 1 

MAKE IT 'V 

LEFT JUSTIFV ? 

NO 

YES 



.•RESTORE RO 
.•RESTORE STACK 



t^^PCr _ ryp^ AS.::. REPLACE 



MACRO V04.00 4-APR-81 01:42:i'5 
LEADING O'S WITH BLANKS 



PAGE 



12 
38 



S£Q o^^t 



5 
4 
5 
6 
7 

8 
9 

10 

n 
12 
13 

-4 

15 

16 032234 010046 

17 032256 016600 000004 

18 032242 005037 03232', 
^9 032246 000405 

20 

31 032250 010046 

22 032252 016600 000004 

2^ 032256 010037 032324 

24 032262 

25 032262 105710 

26 032264 001406 

27 032266 122710 000060 

28 032272 001006 

29 032274 112720 000040 

30 032300 000770 
V 032302 005300 

32 032304 112710 000060 

33 032310 005737 032324 

34 032314 001002 

35 032316 010037 0323?4 

36 032322 104414 

37 032324 000000 

38 032326 012600 

39 032330 012616 

40 032332 000207 



.S8TTL $SUPRS - TrPE ASCIZ. REPLACE .EAPlNG O'S WITH BLANKS 
.58TTL SSUPRL - TrPE ASCIZ. LEFT JUSTlFr 



THIS ROUTINE IS SAME AS 'SUPRSL' AND 'SUfRS', EXCEPT THAT IT 
WILL SUPPRESS THE ERROR TYPEOUT If SW13=;. THIS ACCOMPLISHED Bv 
USED TRAH CALL 'DISPLY', INSTEAD OF 'TrPE'. 
CALL: 

.FIRST ADDRESS OF ASCIZ STRING 



OR 



SSUPRL 



SSUPRS; 



SSUPRI 
1$: 



2S: 
3$: 



4$: 

$SUPR2: 



MOV 

JSR 

MOV 

JSR 

MOV 
MOV 
CIR 
BR 

MOV 
MOV 
MOV 

TST8 

BEQ 

CMP8 

8NE 

M0V8 

BR 

DEC 

M0V8 

TST 

6NE 

MOV 

DISPLY 

.WORD 

MOV 

MOV 

RTS 



#NJMADR.-(SP) 
PC. SSUPRS 

#NUMADR.-(SP' 
PC. SSUPRL 

RO.-{SP) 
4(SP) .RO 
SSUPR2 
SSUPR1 

RO,-(SP) 
4{SP),R0 
R0.SSUPR2 

(RO) 
2S 

#'0.(R0) 
3S 

#40. (RO)* 

IS 

RO 

#'0,(R0) 

$SUPR2 

4S 

R0.$SUPR2 
0 

{SP)*.R0 

(SP)*.(SP) 

PC 



.-FIRST ADDRESS CF ASCIZ STRING 



.•SAVE RO 

.•GET POINTER TO MESSAGE 



SAVE RO 

GET POINTER TO MfcSSAGE 
GET POINTER FOR TYPING 

TEST FOR TERMINATOR 
YES 

IS THIS A 'V ? 
NO 

REPLACE IT WITH A 'BLANK" 

NEXT CHAR. 

QACKUP 1 

MAKE IT 'V 

LEFT JUSTIFY ? 

NO 

YES 

TYPE. UNLESS SW13-1 

RESTORE RO 
RESTORE STACK 



:a«<ueC RM05/^^2 PEP^ FXER "«1AC»0 VOA.OO 

ISlOR. - '^f-E ASCIZ, lEFT JUSTIFY 



E 12 
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3 
<. 
5 
6 

7 
8 
9 



03233A 005237 032A42 



•1 
12 

13 0323AO 
U 032342 

15 032346 

16 032352 

17 032354 
032360 

19 032362 

20 032366 

21 032370 

22 032372 

23 032374 

24 032376 

25 032400 

26 032404 

27 032410 

28 032412 

29 032414 

30 032416 

31 032420 

32 032424 

33 032426 

34 032430 

35 032432 

36 032434 

37 032440 
38 

39 032442 

40 

41 

42 

43 032444 

44 032450 

45 032456 

46 032462 

47 032466 

48 052470 
49 

50 
51 
52 
53 
54 
55 
56 
57 



010046 
016600 

005737 
001014 
122710 
001004 
112710 
005200 
000771 
1057^0 
001003 
005300 
112710 
016600 
105720 
001376 
005300 
162500 
010037 
104401 
000000 
012600 
012616 
005057 
000205 

000000 



013746 
012737 
012537 
004737 
000000 
000205 



000004 
032442 

000060 

000040 



000060 
000004 



032426 



032442 



ROUTINE TO REPLACE LEADING ZEROS IN A NUMERIC STRING WITH SPACES 
CALL: 

ADDRESS OF NUMBER (IN ASCII) 



OR 



FILLZi 
REPLZ: 

1$: 

2$: 



5t: 
4$: 



5$: 



F JLLO: 



MOV 
JSR 
.WORD 

MOV 
JSR 
• WORD 

INC 

MOV 

MOV 

TST 

BNE 

CMP8 

BNE 

M0V8 

INC 

BR 

TST8 

BNE 

DEC 

M0V8 

MOV 

TST8 

BNE 

DEC 

SUB 

MOV 

TYPE 

.WORD 

MOV 

MOV 

CLR 

RTS 

.WORD 



*ADR.-(SP) 
R5. REPLZ 
N 

#ADR.-(SP) 
R5.f JLLZ 
N 

FILLO 

RO,-(SP) 
4(SP),R0 
FILLO 
3S 

*'0.(R0) 
2$ 

i(r40.(R0) 

RO 

1$ 

(RO) 

3$ 

RO 

#'0.(RO) 

4(SP).R0 

(RO)* 

4$ 

RO 

(R5)+,R0 
R0,5$ 

0 

(SP)*.RO 
(SP)*,(SP) 
FILLO 
R5 



.-ROUTINE TO TYPE AT PRIORITY 4 



1 77776 
000200 
032466 
035450 



177776 



TYPRK: MOV 
MOV 
MOV 

JSR 

1$: .WORD 

RTS 



iWrPS,-(SP) 
#2oo.a#PS 

(R5)*.l$ 
PC.STYPE 

0 
R5 



REPLACE PRECEDING ZEROS WJTH BLANKS 
•N' IS NUMBER OF DIGITS TO 9E TYPED 

/ADDRESS OF NUMBER (IN ASCII) 

;TYPE PRECEDING ZEROS 

;'N' IS NUMBER OF DIGITS TO BE TYPED 

;LEAVE ZERO'S 



SAVE RO 

ADDRESS OF NUMBER TO RO 
LEAVE PRECEDING ZEROS ? 
BR IF YES 

BYTE EQUAL TO ASCII '0' ? 
BR IF NOT 

REPLACE THE ZERO WITH A SPACE 

INCREMENT THE BYTE ADDRESS 

GO BACK AND LOOK FOR MORE LEADING ZEROS 

SEE IF ZERO BYTE TERMINATOR 

BR IF NOT 

8ACKLIP STRING POINTER 
PUT A ZERO BACK IN 

PUT ADDRESS OF FIRST CHARACTER ON S^Afr 
SEE IF ZERO BYTE TERMINATOR 
8R IF NOT 

BACKUP STRING POINTER 
ADJUST ADDRESS 
GET ADDRESS FOR TYPE OUT 
TYPE THE NIWBER 
ADDRESS OF NUMBER 
;POP STACK INTO RO 
RESTORE STACK 
RESET FILL FLAG 
RETURN 

.IF SET. LEAVE PRECEDING ZEROS FOR TYPE 



SAVE THE PRESENT STATUS 

CHANGE THE PRIORITY TO 4 

MESSAGE ADDRESS 

TYPE THE MESSAGE 

MESSAGE ADDRESS GOES HERE 

RETURN 



ROUTINE TO TYPE THE MBA (DRIVE) SERIAL N'JMBtR IN DECIMAL 
CALL : 

MOV *DP8.R0 .-ADDRESS OF DRIVE PARAMETER BLOCK 

JSR PC.TYMBA .-CALL ROUTINE 

OR 

MOV #DP8.R0 .-ADDRESS OF DRIVC PARAMETER BLOCK 

JSR PC.TYPMBA ;CALL ROUTJNECWITH NO HEADER MESSAGE) 



imhO RMO-j/^/? PERF EXER HAC«0 v04.00 

IS^PPL - TVPE ASCIZ. I EFT JUSTIFY 



4-APR-8" 01 



F 12 
:A2:2f5 PAGE 39-1 



:8 

59 
60 
61 



052472 
032A76 
6? 032502 
63 032510 
6A 032512 

65 0325 K 

66 032520 
67 

68 
o9 
^0 
71 
72 
^5 
7/, 
75 
76 
77 

78 032522 

79 032526 

80 032532 
032554 
052540 

33 032542 

84 032546 

85 052550 

86 032554 

87 052560 

88 052564 

89 052570 

90 052574 

91 C52576 

92 052600 
95 052604 

052610 
052614 



81 
82 



94 

95 

96 

97 

98 

99 
100 
101 
102 

103 032616 

104 052624 

105 032626 

106 052652 
^07 032656 
108 032642 



104401 
010057 
062757 
104401 
OCOOOO 
104401 
000207 



104401 
005760 
002005 
104401 
000425 
016046 
001414 
004757 
004757 
016046 
004757 
004537 
000005 
000406 
016016 
004757 
004757 
000207 



052777 
001004 
005037 
000157 
062716 
000002 



0775C5 
052512 
002126 



076477 



077270 
000142 

076672 

000142 

035160 
052154 
000140 
035160 
032334 



000 140 
035160 
052154 



;R0 = DP8 ADDRESS BEFORE CALLlMG THE ROUTINE 



032512 



TYJUBA: 
TYPIIBA: 



1$: 



TYPE 

MOV 

ADD 

TYPE 

.WORD 

TYPE 

RTS 



.MBASN 
R0.1S 

*$M8AS\J$ 

0 

.PERIOD 

PC 



TYPE 'mA S/N:' 
ADDRESS OF DPS 

INDEX TO DRIVE (MBA/ SfRIA,. NUMBER 
TYPE THE DRIVE (MBA/ SERIAL NUMBER 
ADDRESS OF DRIVE (MBA; SERIAL '*JMBff< FIELD 
TYPE '.' 
RETURN 



ROUTINE TO TYPE THE PACK SERIAL NUMBER IN OCTAL 

MOV #DP8.Rn ; ADDRESS OF DRIVE PARAMETER BLOCK 

JSR PCTYPACK ;CALL ROUTINE 

OR 

MOV #DP8.R0 .-ADDRESS OF DRIVE PARAMETER BLOCK 

.SR PC.TYPCK .-CALL ROUTINE <WITH NO HEADER MESSAGE) 

RO = DP8 ADDRESS BEFORE CALLING THE ROUTINE 



T>PACK: 
TYPCK: 



1$: 



2»: 



5S: 



TYPE 


.PACKSN 


TST 


SPSNMCRO) 


BGE 


IS 


TYPE 


.NONE 


BR 


5$ 


MOV 


$PSNM(RO).-(SP) 


BEQ 


2$ 


JSR 


PC,SSB20 


JSR 


PC. SUPRSL 


MOV 


$PSNL(PO).-(SP) 


JSR 


PC.$S820 


JSR 


R5.f ILLZ 


.WORD 


5 


BR 


5$ 


MOV 


$PSNL<RO),{SP) 


JSR 


PC.$S820 


JSR 


PC. SUPRSL 


RTS 


PC 



ROUTINE 
CALL 



TO TYPE ERRORS 

DISPLY 
MESADR 
RETURN 



020000 146550 »DSPlY: 

1 77776 
055450 

000002 ^S: 



BIT 
6NE 
CLR 
JMP 
ADD 
RTI 



*8IT13.SSWR 
1$ 

a*PS 

STVPE 
#?,(SP) 



;TYPE 'PACK S/N:' 

;IS SERIAL NUMBER VALID ? 

;8R IF VALID 

;TYPE 'NONE' 

GET HI NUMBER (MSB) 
BR IF ZiRO 

CONVERT TO OCTAL NjeiH 
AND TYPE IT I EFT JUSTIFIED 
GET LOW NUMBER (LSB) 
CONVERT TO OCTAL NJfREH 
TYPE WITH PRECEEDING ZEROS 
5 DIGITS 

.GET LOW NUMBER CLS8) 
.CONVERT TO OCTAL Nl«ER 
;AND TYPE IT LEFT JUSTIFIED 
.•RETURN 



;MUST DEFINED IN 'TRAP* TABlE 
.•ADDRESS OF MESSAGE 



INHIBIT ERROR TYPECUT 
8R IF YES 

SET PRIORITY TO ZERO 
TYPE THE MESSAGE 
INCREMENT THE RETURN 
RETURN 



MACRO VOA.OO 4-APJi-81 01:A2:?^ 
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TYPE ASCiZ. LEM jUSTIfV 



-) 








5 








4 








5 
















7 








8 








9 








10 


032644 


121127 


000060 


11 


032650 


^03407 




12 


032652 


121127 


000067 


13 


052656 


101004 




U 


032660 


111102 




iS 


032662 


042702 


177770 


16 


032666 


005725 




17 


032670 


000205 




18 








^9 








20 








21 








22 








23 








24 








25 








26 








27 








28 


032672 


121127 


000060 


29 


032676 


103407 




30 


032700 


121127 


000071 


31 


032704 


101004 




32 


052706 


111102 




33 


032710 


042702 


000060 


34 


032714 


005725 




35 


032716 


000205 




36 








37 








38 








39 








40 








41 








42 








43 








44 








45 








46 








4^ 








48 








49 








50 


032720 


105711 




51 


032722 


001417 




52 


032724 


121127 


000054 


53 


032730 


001413 




54 


032732 


121127 


000056 


55 


032736 


001407 




56 


032740 


004537 


032672 


57 


032 744 


000410 





^HIS ROUTINE IS 
ASCII CHARACTER 



USED TO CHECK IF. AN* 

IS A DIGIT BETWEEN- 0 AND 7. 



CALL: 



CK.OCT; 



IS: 



MOV 

JSR 

RETURN1 
RETURN2 



CMP8 

BLO 

CMP8 

E>I 

MOVd 

BIC 

TST 

RTS 



«ADR,R1 
R5.CK.0CT 



(Ri).#'0 
1S 

1$ 

(R1) .R2 
**C7.R2 
(R5)* 
R5 



ADDRESS OF ASCII CHARACTER 
CHECK THE CHARACTER 
CHARACTER IS NOT BETWEEN 0-7 
CHARACTER IS IN R2 AS A 
OCTAL 0J6IT 

LESS THAN ZERO? 
VES — BRANCH 
GREATER THAN SEVEN? 
rES — BRANCH 
GET THE CHARACTER 
STRIP AWAr THE ASCII 
ADJUST FOR RETURN 
RETURN 



THIS ROUTINE IS USED TO CHECK AN ASCII CHARACTER 
AND DETERMINE IF IT IS A DIGIT BETWEEN 0 AND 9. 
CALL: 

MOV #ADR,R1 
JSR R5.fK.DEC 
RETURNi 
RETURN2 



CK.DEC: CMP8 
BLO 
CMPe 
BHJ 
MOVB 
BIC 
TST 

1$: RTS 



(R1).*'0 
1$ 

(R1).#'9 
IS 

(R1).R2 
*'0.R2 
(R5)* 
R5 



ADDRESS OF ASCII CHARACTER 
CHECK THE CHARACTER 
NOT BETWEEN 0 AND 9 
BETWEEN 0 AND 9 
R2 = DIGIT 



THIS ROUTINE WILL CHECK AN 
DETERMINE WHAT IT IS. 

CALL : 

MOV 4rADR,R1 
JSR R5.CK.CHR 
RETURN ADR1 
RE TURN ADR2 
RETURN ADR3 
RETURN ADR4 
RETURN ADR5 
RE TURN ADR6 



LESS THAN ZERO? 
YES — BRANCH 
GREATER THAN NINE? 
rES — BRANCH 
GET THE CHARACTER 
STRIP AWAY THE ASCII 
ADJUST FOR RETURN 
RETURN 



ASCII CHARACTER TO 



CK.CHR; 



TST8 

BEO 

CMP8 

BEO 

CMPB 

BEQ 

jSR 

BR 



(Rl) 
3$ 

vRl/ , 
2$ 

(Rl;.*'. 
IS 

R5.CK.DEf 
4S 



.-ADDRESS OF ASCII CHARACTER 
; CHECK CHARACTER 
; UNKNOWN CHARACTER 
.CARRIAGE RETURN • (Rl)-ADR»' 
.COMMA • (R1)=ADR»1 
.•PERIOD • (R1)=ADR*1 
.•DIGIT BETWEEN 0 AND 7. 
.•DIGIT BETWEEN 8 AND 9. 
;R2 = DIGIT • (RP=ADR»' 

.-"CARRIAGE RETURN"? 

;VES — BRANCH 

.-"COMMA"? 

;VES — BRANCH 

.-"PERIOD"? 

;YES — BRANCH 

.-'DIGIT"? 

;N0 — BRANCH 
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sfO 01Sf» 



58 032746 

59 012752 

60 032754 

61 032756 

62 032760 

63 032762 

64 032764 
t5 032766 
66 032770 
67 

68 
o9 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 

81 032772 

82 032774 

83 032776 

84 033000 

85 033002 

86 0^3004 

87 033006 
033012 
033014 
033016 
033020 
033022 
033024 
033026 

89 033032 

90 033034 

91 033036 

92 033040 

93 033042 

94 033044 

95 033046 
033052 
033054 
033056 
033060 
033062 
033064 

96 033066 

97 033070 

98 033072 

99 033074 
TOO 033076 

101 033100 

102 033102 



88 



004537 
005725 
005725 
005725 
005725 
005725 
005201 
011505 
000205 



0104<.6 
010346 
010246 
005002 
005003 
005004 
004537 
033106 
033114 
053106 
033110 
033026 
033026 
062705 
006303 
010346 
006303 
006303 
062603 
060203 
004537 
033112 
033076 
033074 
033C66 
033032 
033032 
105711 
001010 
005724 
005724 
005724 
02C316 
101004 



032644 



1$ 
2% 
3$ 

4$: 



JSR 
1ST 
TST 
TST 
TST 
TST 
INC 
MOV 
RTS 



R5,C<.0CT 

(R5)» 

(R5)* 

(R5)* 

(R5;» 

(R5)* 

R1 

(R5),R5 
R5 



OC^AL ? 

DIGIT BETWEEN 8-9 
DIGIT BETWEEN 0-7 
PERIOD 
COMTW 

fARRIAGE RETURN 

MOVE POINTER TO NEXT CHARArTtR 

UNKNOWN CHARACTER 

RETURN 



THIS ROUTINE CHECKS AN ASCII STRING FOR LEGAl 

CHARACTERS AND FORMS A DECIMAL VALUE BINARY NUMBER IN R2. 



CALL; 



032720 



000004 



032720 



MOV 
MOV 
JSR 

RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 



»ADR.R1 
»NUM,R2 
R5.CK.DIG 

ADR1 
ADR2 
ADR 3 
ADR4 
ADR 5 
ADR6 



ADDRESS Of ASCIZ STRING 

MAX. MAGNITUDE OF INPUT NUMBER 

CHECK DIGITS 

"CR" ONLV ENTERED — R2-0 
"PERIOD" ONLY ENTERED ~ R2=0 
ILLEGAL CHARACTER OR INPUT TOO lARGE 
"CR" — R2 = NUMBER 
"COMMA" — R2 = NUMBER 
•PERIOD" R2 - NUMBER 



— R2-: 







nH , V jr / , 


jMVC nH 




riUV 


n J ^ \ / 1 






riUV 


DP -(^p\ 






ri D 


D9 






ri p 


OX 

nj 






n B 

V. 


R4 






JSR 


R5,CK.CHR 


CHECK ONE CHARACTER 




6$ 




; ILLEGAL CHARACTER 




9$ 




; CARRIAGE RETURN 

■ ' ' * ' 




6$ 
7$ 








It f « 




1$ 




•dIgit 0-7 




1$ 




•DIGIT 8-9 


1$: 


ADD 


*4.R5 


•STEP RETURN POINTER PAST "CR" £ ■'PERIOD" 


2$: 


ASL 


R3 


; INPUT NUMBER •2 




MOV 


R3.-CSP) 


;SAVE -2 




ASL 


R3 


;«4 




ASL 


R3 


;*8 




ADD 


(SP)*.R3 


:(*2)*C*8) •lO 




ADD 


R2,R3 


•UPDATE THE INPUT NUMBER 




JSR 


R5,CK.CHR 


; CHECK ONE CHARACTER 




8S 


•ILLEGAL CHARACTER 




5$ 




; CARRIAGE RETURN 




4$ 




» * ' * ' 




3$ 




■ ' ' * ' 




2$ 




•DIGIT 0-7 




2$ 




•DIGIT 8-9 

•DOES A "CR" FOLLOW THE "IPFRIOD" 


3$: 


TST8 


(RI) 




BNE 


8J 


•8R IF NOT 




TST 


(R4)* 


•INCREMENT THE RETURN 


4$: 


TST 


(R4)* 


r INCREMENT THE RETURN 


5$: 


TST 


(R4W 


.•INCREMENT THE RETURN 




CMP 


R3.(SP) 


; CHECK THE MAGNITUDE OF THE NUMBER 




BHI 


9$ 


•BR IF ENTERFD NUMBER TOO LARGE 



RE TURNS 
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■•03 055104 


000402 




BR 


8S 


8VPASS INCRkMENT 


■•04 055106 


005725 


6$: 


Tsr 


(R5)» 


INCREMENT RETURN PAST !NVALID 


105 053110 


005725 


TSl 


{R5;* 


INCREMENT RETURN 


106 0351 12 


060405 


es: 


ADD 


R4,R5 


SETUP RETURN POIN'Er^ 


107 053114 


010302 


9$: 


MOV 


R3.R2 


•ENTERED VALUC 


108 055116 


005726 




^ST 


(SP)* 


•CLEAN MAX. SIZE OFF OF STACK 


109 033120 


012603 




MOV 


(SP)».R3 


•RESTORE R3 


no 033122 


012604 




MOV 


(SP)*,R4 


; RESTORE R4 


111 033124 


011505 




MOV 


{R5).R5 


•GET RETURN ADDRESS 


^2 033126 


000205 




RTS 


R5 


•RETURN 



113 

114 
115 
T6 
117 
T18 
119 
120 
121 
122 
T23 
124 
T25 
126 
127 
128 
129 
150 
131 
152 
155 
T3<. 
135 
136 
137 
138 
•39 
140 
141 
142 
145 
744 
145 
146 



0351 50 
0331 56 
033142 
033146 
035152 
033154 



055160 
055166 
033172 
C55176 
055202 
035204 



016637 
012746 
004757 
012666 
000207 
000000 



016657 
012746 
004757 
012666 
000207 
000000 



THIS ROUTINE WILL CONVERT A 16-81 T UNSIGNED BINARY NUM8ER 10 AN 
UNSIGNED DECIMAL ASCIZ NUMBER. 

CALL: 



MOV 
JSR 

RETURN 



NUMBER. -(SP) 
PC.$SB2D 



PUT THE NUMBER ON THE STACK 
CALL: 

ADDRESS OF THE 1ST ASCIZ CHAR IS ON THE STACr 



000002 033154 
035154 
037122 
000002 

000000 



NOTE: 
$S82D: 

1$: 



'HE PROGRAM REQUIRES THIS FORM OF •$S82D', NOT THE VERSION ON 
THE SYSMAC LIBRARY, REV C AND LATER 



MOV 
MOV 
JSR 
MOV 
RTS 
.WORD 



2(SP).1$ 

#1$.-(SP) 

PC,SDB2D 

(SP)*.2{SP) 

PC 

0.0 



SAVE THE BINARY NUMBER 

SET THE POINTER 

CALL THE DOUBLE LENGTH CONVERT 

PICKUP THE POINTER 

RETURN 



THIS ROUTINE WILL CONVERT A 16-811 UNSIGNED BINARY NUMBER TO AN 
UNSIGNED OCTAL ASCIZ NUMBER. 
CALL : 

MOV NUMBER. -(SP) ;PUT THE NUWBER ON THE STACK 
JSR PC $S620 'CALL: 

RETURN ' ;ADDRESS OF THE 1ST ASCIZ CHAR IS ON THE STACK 



000002 053204 
053204 
057516 
000002 

000000 



NOTE: 
$5820: 

1$: 



THE PROGRAM REQUIRES THIS FORM OF •$S820'. NOT THE VERSION ON 
THE SYSMAC LIBRARY, REV C AND LATER 



MOV 
MOV 
JSR 
MOV 
RTS 
.WORD 



2CSP>,n 

*7t.-(SP) 

PC.SDS20 

(SP)*,2(5P) 

PC 

0.0 



SAVE THE BINARY NUMBER 
SET THE POINTER 

CALL THE DOUBLE LENGTH CONVERT 

PICKUP THE POINTER 

RETURN 



RM05/^/2 PERF EXER 
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,S8TTL TTy INPUT ROUTINE 



033210 000000 
033212 000000 
033214 000000 
033216 

053225 



.ENA8L 

STKCNT; 

■$T)CQJN: 

STKQOUT: 

STKQSRT: 

$TKQEND= 

.EVEN 



LS8 
.WORD 
.WORD 
.WORD 
.8LKB 



0 
0 
0 
7 



.-NUMBER OF ITEMb IN OUEUf 
.-INPUT POINTER 
.•OUTPUT POINTER 
;TTY KEY80ARD QUEUE 



033276 
033302 
033306 
03331? 
0333K 
033316 
033320 
03332C 
033324 
033326 
033^32 
033336 
033340 
033344 
033350 
033352 
033360 

033362 
053362 

053370 
053372 



•TK INITIALIZE ROUTINE 

•THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
•SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 



•CALL; 
* 



JSR 

RETURN 



PC.JTKINT 



C53226 


005037 


033210 




STKINT: CLR 


STKCNT 


055252 


012737 


035216 


055212 
055214 


MOV 


*$TKOSRT.$TKQ]N , 


055240 


013737 


055212 


MOV 


$TKQIN.$TKQOUT , 


055246 


012757 


055276 


000060 


MOV 


*$TKSRV,a*TKVEC . 


055254 


012757 


000200 


000062 


MOV 


*200.a<rTKVEc*2 


033262 


005777 


145674 




TST 


aSTKB 


033266 


012777 


000100 


145664 


MOV 


#ioo.asTKS 


033274 


000207 






RTS 


PC 



1 1 7746 
042716 
021627 
001002 
005726 
000002 

021627 
001007 
104401 
004757 
005726 
000157 
021627 
001004 
022737 
001500 



0227Z7 
001004 
104401 



145660 
1 77600 
000021 



000005 

054455 
055226 

034474 
000007 

000176 001154 



CLEAR COUNT OF ITEMS IN QUEUE 
MOVE THE STARTING ADDRESS Of THE 
QUEUE INTO THE INPUT ft OUTPUT POINTERS. 
INITIALIZE THE KEYBOARD VECTOR 
•BR" LEVEL 4 
CLEAR DONE FLAG 
ENABLE TTY KEYBOARD INTERRUPT 
RETURN TO CALLER 

•TK SERVICE ROUTINE 

•THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 

•BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 

•IT IN THE QUEUE. 

•IF THE CHARACTER IS A "CONTROL-C" (*C) STKINT IS CALLED AND 

•UPON RETURN EXIT IS MADE TO THE "CONTROL-C" RESTART ADDRESS (CTRAP) 



STKSRV: M0V8 
BIC 
CMP 
BNE 
TST 
RTI 



30S: 



000007 
001 1 76 



033210 



IS: 



2$: 



CMP 

BNE 

TYPE 

JSR 

TST 

JMP 

CMP 

BNE 

CMP 

BEQ 



CMP 

BNE 
TYPE 



a$TKB.-(SP) 
#*C1 77, (SP) 

30S 

ISP)* 



(SP).*3 
IS 

.SCNTLC 

PC.STKINT 

(SP)* 

CTRAP 

(SP).#7 

2$ 

^SUREG.SWR 
6S 



*7, STKCNT 
3S 

.S8ELL 



PICKUP THE CHARACTER 
STRIP THE JUNK 
IS IT A RANDOM XON? 
BRANCH If NO 

CLEAN RANDOM XON OFF STACK 
RETURN 

IS IT A CONTROL C? 

BRANCH IF NO 

TYPE A CONTROL-C CO 

INIT THE KEYBOARD 

CLEAN UP STACK 

CONTROL C RESTART 

IS IT A CONTROL G? 

BRANCH IF NO 

IS SOFT-SWR SELECTED? 

GO TO SUR CHANGE 



IS THE QUEUE FULl ? 
BRANCH IF NO 
RING THE TTY BELL 
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033376 


005726 








TST 


(SP)* 


.•CLEAN CHARACTER OFF OF S1AC»C 


033400 


000451 








BR 


5$ 


;EXIT 


033«.02 


021627 


000023 




3$: 


CMP 


(SP).*23 


;IS IT A CONTROL-S? 


033A06 


001021 








BNE 


32$ 


.-BRANCH IF NO 


033410 


005077 


14SS44 






CLR 


a$TKS 


.'DISABLE TTY KEYBOARD INTERRUPTS 


035414 


005726 








TST 


ISP)* 


.-CLEAN CHAR OFF STACK 


033416 


105777 


145536 




31$: 


TST8 


SSTKS 


.-WAIT FOR A CHAR 


033422 


100575 








BPL 


31$ 


.-LOOP UNTIL ITS THERE 


033424 


1 1 7746 


145532 






M0V8 


a$TKO.-(SP) 
#*C1 77, (SP) 


;GET THE CHARACTER 


033430 


042716 


177600 






BIC 


.-MAKE IT 7-81 T ASCII 


033434 


022627 


000021 






CW 


(SP)*,*21 


;IS IT A CONTROL -0? 


033440 


001 366 








BNE 


51$ 


.-BRANCH IF NO 


053442 


012777 


000100 


145510 




MOV 


4rl00,9$TKS 


.-RE ENABLE TTY KEraOARD INTERRUPTS 


0334!)0 


000002 








RTI 




; RE TURN 


035452 


005257 


033210 
000140 




52$: 


INC 


STKCNT ; 


.-COUfJT THIS CHARACTER 


053456 


021627 






CMP 


(SP),#140 


,-IS IT UPPER CASE? 


033462 


002405 








8LT 


4$ 


.-BRANCH IF YES 


033464 


021627 


000175 






CMP 


(SP),*175 


;IS IT A SPECIAL CHAR? 


033470 


005002 








BGT 


4$ 


.-BRANCH IF YES 


0334 72 


042716 


000040 






BIC 


#40, (SP) 


;MAKE IT UPPER CASE 


055476 


112677 


177510 




4$: 


M0V8 


(SP)*,a$TKQIN ; 


;ANO PUT IT IN QUEUE 


055502 


005257 


055212 






INC 


$TKQIN 


.-UPDATE THE POINTER 


035506 


025727 


055212 


055225 




CMP 


$TKQIN,#tTKOEND ; 


;60 OFF THE END? 


053514 


001003 








BNE 


5$ 


.•BRANCH IF NO 


033516 


012737 


033216 


033212 




MOV 


#$TKQSRT.$TKOIN ; 


.RESET THE POINTER 


053524 


000002 






5$: 


RTI 




.RETURN 



055526 
053534 
033536 
035542 
055544 
055550 
033554 
033560 



022757 
001124 
105777 
100121 
117746 
042716 
021627 
001500 



000U6 001154 $CICSWR: 

145416 

145412 
177600 
000007 



•SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
•ROUTINE IS ENTERED FROM THE TRAP HANDLER. AND WILL 
•SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 
•CALL WHEN OPERATING IN TTY INTERRUPT MODE, 



BNE 

TST8 

BPL 

MOVB 

BIC 

CMP 

BNE 



#SWREG.SWR 
15$ 
SSTKS 
15$ 

a$TK8,-(SP) 
#*C177.(SP) 
{SP>.#7 
2$ 



IS THE SOFT-SWR SELECTED 

EXIT If NOT 

IS A CHAR WAITING? 

IF NOT, EXIT 



YES 
MAKE IT 
IS IT A 
IF NOT, 
AND EXIT 



7-eiT ASCII 
CONTROL -6? 
PUT IT IN THE 



TTY QUEUE 



055562 
053570 
053572 
053574 
055600 
055604 

035612 
033616 
033622 
033626 



123727 
001674 
005726 
004757 
005077 
112757 

104401 
104401 
015746 
104402 



001150 000001 



055226 
145554 
000001 

054445 
034452 
0001 76 



001151 



•CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 
•ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL. AS A RESULT OF 
•CONTROL -G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 
6$: 



CMP8 


$AUT0B.#1 


•;ARE WE RUNNING IN AUTO-MODE? 


BEO 


2$ 


• .-BRANCH IF YES 


TST 


(SPJ* 


•; CLEAR CONTROL -6 OFF STACK 


JSR 


PC.$TKINT 


•.•FLUSH THE TTY INPUT QUEUE 


CLR 


a$TKS 


•.•DISABLE TTY KEYBOARD INTERRUPTS 


MOVB 


#1,$INTAG 


■;SET INTERRUPT MODE INDICATOR 


TYPE 


.$CNTLG 


-.-ECHO THE CONTROL-G (*G) 


TYPE 


.$MSWR 


•;TYPE CURRENT CONTENTS 


MOV 


SWREG.-(SP) 


■.•SAVE SWREG FOR TYPEOUT 


TYPOC 


•.•60 TYPE—OCTAL ASCIKALL DIGITS^ 



ZRMueO RM05/?/? PE«F EXER "1ACR0 V04.00 4-APR-81 

ty ii^put routine 



033630 


104401 


034463 






TVPE 


033634 


005046 






19$: 


CLR 


07V>3^ 


V/V JW"*0 








ClR 


0336A0 


105 '77 


145314 




7$: 


TST8 


033644 


100375 








BPL 




1 1 7746 


145310 






MOVB 


033t>5? 


042716 


1 77600 






BIC 


033656 


021627 


000003 






CMP 


03366P 


001015 








BNE 


033664 


104401 


034433 






TVPE 


033670 


062706 


000006 






ADD 


033674 




001 1 51 


000001 




CMP8 


033702 


001003 








BNE 


033704 


Q^2777 


000100 


145246 




MOV 


033712 


000137 


C34474 




8S: 


wMP 


033716 


021627 


000025 




9$: 


CMP 


033722 


001005 








BNE 


033724 


104401 


034440 






TVPE 


033730 


0«b2706 


000006 

w w 




20S: 


ADD 


033734 


000737 








BR 


033736 


021627 


000015 




10$: 


CMP 


035742 


001022 








BNE 


033744 


005766 


000004 






TST 


033750 


001403 








BEQ 


033752 


016677 


00000' 


145174 




nov 


033760 


062706 


000006 




11$: 


ADD 


033764 


104401 


001 203 




14$: 


TVPE 


053770 


121727 


001151 


000001 




CMP8 


01'5776 


001003 








BNE 


054000 


012777 


000100 


145152 




MOV 


034006 


000002 






15$: 


RTJ 


034010 


004737 


055662 




16$: 


JSR 


034014 


021627 


000060 






CMP 


034020 


002420 








BLT 


034022 


021627 


000067 






CMP 


034026 


00301 5 








BGT 


034030 


042726 


000060 






BJC 


054034 


005766 


000002 






TST 


034040 


001403 








BEO 


034042 


006316 








ASl 


034044 


006316 








ASL 


034046 


006316 








ASL 


054050 


005266 


000002 




17$: 


iNC 


034054 


056616 


1 77776 






BIS 


054060 


000667 








8R 


054062 


104401 


001202 




18$: 


TVPE 


034066 


000720 








BR 










.D5A8L 


LS8 
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,$MNEW ; .-PROMPT FOR NEW SWR 

-(SP) ;. -CLEAR COUNTER 

-(SP) ;;THE NEW SWR 

8$TKS ;;CHAR iHERE? 

7% ::lf NOT TRV AGAIN 

8$TK8.-(SP) ;;PIC< UP CHAR 

fCI 77, (SP) .-.-MAKE IT 7-81 T ASCII 

(S'-'),#3 ;;IS IT A CONTROL-C? 

9$ ;; BRANCH IF NOT 

.$CNTLC ;;VES, ECHO CONTROL-C CO 

#6,SP ;; CLEAN UP STACK 

$1NTAG,*1 ;;REENA8LE TTV KEV80ARD INTERRUPTS 

8$ .-.-BRANCH If NO 

*100,a$Tl«;5 ;, ALLOW TTV KEVBOARD INTERRUPTS 

CTRAP ;;C0fJTR0L-C RESTART 



(SP).#25 ;;IS IT A CONTROL -U? 

10$ ; .'BRANCH IF NOT 

,$CNTLU ;;VES. ECHO CONTROL -U (*U) 

#6,SP .-.-IGNORE PREVIOUS INPUT 

19$ ;;LET'S TRY IT AGAIN 



(SPJ.*15 ;;IS IT A <CR>? 

16$ .-.-BRANCH IF NO 

4(SP) ;;YES, IS IT THE FIRST CHAR? 

11$ ; .-BRANCH IF YES 

2(SP),aSWR ;:SAVE NEW SUR 

#6,SP ;; CLEAR UP STACK 

,$CRLF ;;ECHO <CR> AND <LF> 

$]NTAG.4'1 ;;RE-ENABLE TTY KBD INTERRUPTS? 

15$ ; .-BRANCH IF NOT 

#100.a$TKS ;;RE-ENABLE TTY KBD INTERRUPTS 

* 'RETURN 

PC.$TYPEC ;;ECHO CHAR 

(SP).#60 .-.-CHAR < 0? 

18$ ; .-BRANCH IF YES 

(SP),#67 ;;CHAR > 77 

18$ ; .-BRANCH IF YES 

#60.(SP)+ ; .-STRIP-OFF ASCII 

2(SP) ;;IS THIS THE FIRST CHAR 

17$ ; .'BRANCH IF YES 

(SP) ;;N0. SHIFT PRESENT 

(SP) ;; CHAR OVER TO MAKE 

(SP) ;; ROOM FOR NEW ONE. 

2(SP) ;;KEEP COUNT OF CHAR 

-?(SP).(SP) .'.'SET IN NEW CHAR 

7$ .'.'GET THE NEXT ONE 

.$OUES .'.'TYPE ?<CR><LF> 

20$ .-.'SIMULATE CONTROL -U 
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03A070 
05A072 
03A100 
054 104 
054106 
054112 
054114 
054114 
054120 
054122 
C54126 
054154 
054140 
054146 
054150 
034156 



011646 
016666 
005066 
005046 
012746 
000002 

005757 
001775 
005337 
117766 
005237 
023727 
001005 
012757 
000002 



000004 
000004 

034114 



053210 

033210 
177062 
053214 
053214 

033216 



£0 0155 



•THIS ROUTINE WILL INPUT A SINGLE 
•CALL: 

• RDCHR 

• RETURN HERE 



C00002 



(RDCHR: 



64S: 
1$: 



000004 
035225 
035214 



2$: 



MOV 
MOV 
CLR 
CLR 
MOV 
RTI 

TST 

BEQ 

DEC 

M0V8 

iNC 

CMP 

BNE 

MOV 

RTI 



(SP;,-'SP) 
4{SP).2(SP) 
4(3P> 
-(SP) 

*64$.-(SP) 



STKCNT 
1$ 

STKCNT 

a$TKQ0UT,4(SP) 
STKQOUT 



CHARACTER FROM THE TTy 

GET A CHARACTER FROM THE OUEuE 
CHARACTER IS ON THE STACK 
WITH PARITY BIT STRIPPED OFF 



PUSH DOWN THE PC AND 
THE PS 

GET READY FOR A CHARACTER 
PUT NEW PS ON STACK 
PUT NEW PC ON STACK 
POP NEW PC AND PS 



;;WAIT ON A CHARACTER 

.•DECREMENT THE COUNTER 
;GET ONE CHARACTER 
.•UPDATE THE POINTER 

THE END? 



STKQOUT. #$TKOEND ;;DID IT GO OFF OF 
2$ ::BRWCH IF NO 

#$TKQSPT, STKQOUT ;. RESET THE POINTER 
;; RE TURN 



•THIS ROUTJNE WILL INPUT A STRING FROM THE TTY 
•CALL: 

• RDLIN 

* RETURN HERE 



INPUT A STRING FROM THE TTY 

ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
TERMINATOR WILL BE A BYTE OF ALL O'S 



054160 


010346 






SRDLIN: 


MOV 


R3,-(SP) 




SAVE R3 


034162 


005046 








CLR 


-<SP) 




•CLEAR THE RUBOUT KEY 


054164 


012705 


054414 




IS: 


MOV 


#$TTYIN.R3 




;GET ADDRESS 


054170 


022703 


054455 




2S: 


CMP 


#STTyiN+15..R5 . 




•BUFFER FULL? 


034174 


101456 








BLOS 


4S 




:8R IF YES 


034176 


104410 








RDCHR 






;G0 READ ONE CHARACTER FROM THE TTY 


034200 


112615 








M0V8 


(sp)*,(R3) ; 




•GET CHARACTER 


034202 


122715 


000177 




10S: 


CMPS 


#177. (R3) 




•IS IT A RUeOUT 


034206 


001022 








BNE 


5S 




•BR IF NO 


054210 


005716 








TST 


(SP) 




•IS THIS THE FIRST RUBOUT? 


054212 


001007 








BNE 


6S 

#'\.9S 




;8R IF NO 


054214 


112757 


0001 54 


054412 




M0V8 




•TYPE A BACK SLASH 


054222 


104401 


034412 






TYPE 


,9S 




054226 


012716 


1 77777 






MOV 


*-l.(SP) 




•SET THE RUBOUT KE^ 


054252 


005305 






6S: 


DEC 


R3 




•BACKUP BY ONE 


034234 


020327 


034414 






CMP 


R3.#$TTYIN 




•STACK EMPTY? 


034240 


103434 








BLO 


4S 




•BR IF YES 


034242 


111357 


054412 






MOVB 


(R3).9$ 




•SETUP TO TYPEOUT THE DELETED CHAR. 


054246 


104401 


054412 






TYPE 


.9$ 




:G0 TYPE 


054252 


000746 








BR 


2$ 




•GO READ ANOTHER CHAR. 


054254 


005716 






5$: 


TST 


(SP) 




■RLBOUT KEY SET? 


054256 


001406 








BEQ 


7S 




•8R IF NO 


054260 


112757 


000154 


054412 




MOVB 


*'\.9S 




•TYPE A BACK SLASH 


054266 


104401 


054412 






TYPE 


.9$ 




054272 


005016 








CLR 


(SP) 




•CLEAR THE RUBOUT KEV 


054274 


122715 


000025 




7$; 


CMP8 


*25.(R3) 




•IS CHARACTER A CTRL U? 


034300 


001005 








BNE 


8S 




•8R IF NO 
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034302 


104401 


034440 






TYPE 




034306 


000726 








BR 




054310 


T 2271 3 


000022 

www W b 




8S: 


CMP8 




034314 


001011 








BNE 




054316 


105013 








CLR8 




034320 


104401 


001 203 






TYPE 




034324 


104401 


034414 






TYPE 




034330 


00071 7 








BR 




03A332 


104401 


001 202 




4S: 


TYPE 




034336 


00071 2 








BR 




03^340 


111337 


034412 




3S: 


M0V8 




034344 


104401 


034412 






TYPE 




034350 


122723 


00001 5 






CMP8 




034354 


001 305 








BNE 




034356 


105063 


177777 






CLR8 




034362 


104401 


001204 






TYPE 




034366 


005726 








TST 




034370 


012603 








MOV 




034372 


011646 








MOV 




034374 


016666 


0C0004 


000002 




MOV 




034402 


012766 


034414 


000004 




MOV 




034410 


000002 








RTI 




034412 


000 






9$: 


.8VTE 




034413 


000 








.BYTE 




034414 








STTYIN 


: .8LK8 




034433 


1 36 


105 


01 5 


JCNTLC 


: .ASCI 




034440 


136 


125 


015 


SCNTLU 


: .ASCI 




034445 


136 


107 


01 5 


SCNTLG 


: .ASCJ 




034452 


015 


012 


123 


SMSUR: 


.ASCI 




034463 


040 


040 


116 


SMNEU: 


.ASCI 


2 
5 










.-THIS ROUTINE 


4 

5 


034474 


012737 


000001 


001340 


CTRAP: 


MOV 


6 


034502 


005237 


033210 






INC 


7 


034506 


112777 


00001 5 


176476 




Move 


8 


034514 


005237 


033212 






INI 


9 


034520 


023727 


033212 


033225 




CMP 


TO 


034526 


001003 








BNE 


n 


034530 


012737 


033216 


033212 




MOV 


12 


034536 


000002 






^$: 


RTI 
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.ICNTLU ;;TYPE A CONTROL '\J" 

1$ ;;G0 START OVER 

#22. (R3) ;;IS CHARACTER A "*R"? 

3$ ;, -BRANCH IF NO 

(R3) ;; CLEAR THE CHARACTER 

.SCRLF ;;TYPE A "CR" t 'IF" 

,STTMN ;;TYPE THE INPUT STRING 

2$ ;;G0 PICKUP ANOTHER CHACTER 

.SQUES ;;TyPE A '?• 

1$ ;; CLEAR THE BUFFER AND LOOP 

(R3).9$ ;;ECHO THE CHARACTER 

.9$ 

/(fl5.(R3)* ;;CHECK FOR RETURN 

2$ ;;LOOP IF NOT RETURN 

-1(R3) ;; CLEAR RETURN (THE 15) 

.$lF ;;TYPE A LINE FEED 

(SP)+ ;; CLEAN RUBOUT KEY FROM THE STACK 

(SP)*.R3 ; .-RESTORE R3 

(SP).-(SP) ; .-ADJUST THE STACK AND PUT ADDRESS OF 

4(SP),2(SP) ;; FIRST ASCII CHARACTER ON IT 

*$TTYIN.4(SP) 

; .-RETURN 

0 .-.-STORAGE FOR ASCII CHAP. TO TYPE 

0 .-.-TERMINATOR 

15. .-.RESERVE 15. BYTES FOR TTY INPUT 

/•C/<15><12> ;; CONTROL "C" 

/*U/<15><12> .-.-CONTROL "U" 

/*G/<15><12> .-.-CONTROL "G" 

<15><12>/SWR = / 

/ NEW = / 

ILL PROCESS THE (*C) CHARACTER 

#1.CFLAG .-SET THE 'CONTROL C FLAG 

STKCNT .-COUNT THIS CHARACTER 

#15.a$TKQIN .-PUT 'RETURN' CHARACTER IN QUEUE 

STKQIN .-UPDATE THE POINTER 
$TKQIN.#$TKQEND ;G0 OFF THE END ? 

1» ;8R IF YES 
#$TKOSRT,$TKQIN .-RESET THE POINTER 
.-RETURN 



HANDLER ROUTINE 
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.S8TTL ERROR HANDLER ROUTINE 



SEO 0157 



•THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
•SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
•AND GO TO SERRTYP ON ERROR 

•THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 



•SWT 5=1 
•SW13=1 
•SW10=1 
•CALL 



HALT ON ERROR 
INHIBIT ERROR TYP20UTS 
BEcL ON ERROR 



ERROR N 





insn57 








ri RR 






104407 














010557 


001 522 

\J\J 1 JCC 






MOV 


R5 ATTN 




010157 


001 220 








Ri nQTUF 




05P777 


020000 


144570 




HIT 


wow 1 jfVjwn 




001004 










♦ 12 




104401 


V/V \ C\J J 












104401 


001205 






TYPF 


iCRLF 




004757 


0247S0 






jsr 


r V # * 1 i "It 




105257 


001 117 




7%- 

• * • 


1 1 4V<^ 


SFRFLG 




001 775 








RFO 




0^610 


013777 


001 116 


K4340 




MOV 


ilSTNM aOI SPLAY 


034616 


05?777 


002000 

V/V/C V/V/ V/ 


144530 




BIT 


MI 710 aSUR 




001 40P 








U/L. Mi 


1$ 


034626 


104401 


001 1 76 

V/V/ 1 I r V/ 






TYPE 




03463? 


005237 


001 126 

V/V/ 1 ■ CV/ 




IS' 


INC 


$ERTTL 


034656 


01 1637 


001 1 52 

V/V/ 1 I 






MOV 


(CP} SFRRPC 


034642 


162737 


000002 


001 1 32 




SUB 


#2,$ERRPC 


034650 


1 1 7737 


144256 


001130 




M0V8 


aSERRPC.SITEMB 


034656 


032777 


001000 


144270 




BIT 


4IBIT09 aSUR 


034664 


001060 








BNF 


1004$ 


034666 


^ 22757 


0001 77 


001130 




CMPB 


#177 $ITEMe 


034674 


001454 










1004$ 

' v/v/~* 


054676 


105757 


035126 






TSTB 


IBS AVE 




001047 








BNE 


1C03$ 


034704 


022757 


\77777 


035124 




CMP 


M^y rpSAVE 


034712 


001445 








BEO 


1004$ 


034714 


013746 


000004 






MOV 


ERRVEC.-(SP) 


C 34 720 


012737 


034736 


000004 




MOV 


#1000$,ERRVEC 


034726 


013737 


1 77766 


035124 




MOV 


1 77766. CPSAVE 


034734 


000406 








8R 


1001$ 


034736 


012737 


U7777 


035124 


1000$; 


MOV 


#-l,CPSAVE 


034744 


012716 


034752 






MOV 


#1001$, (SP) 


034750 


000002 








RTI 


034752 


012637 


0000C4 




1001$: 


MOV 


(SP)*.ERRVEC 


034756 


022737 


y77777 


035124 


7002$: 


CMP 


#-l,CPSAVE 


034764 


001420 








BEQ 


1004$ 


034766 


032737 


000001 


035124 




BIT 


#81^00, CPSAVE 


034774 


001414 








BEQ 


1004$ 


034776 


042737 


000001 


1 77766 




BiC 


#81 TOO, •'77766 


035004 


113737 


001130 


035126 




M0V8 


$ITEMB.IPSAV£ 


0350^2 


112737 


00C177 


001130 




M0V8 


#1 77. $ITcl« 


035020 


0C0402 








BR 


1004$ 



; ; ERROR=EMT AND N=ERROR ITEM NUMBER 

.-CLEAR THE HEM BYTE SAVE LOCATION 
.•TEST FOR CHANGE IN SOFT-SWR 
SAVE THE ATTENTION REGISTER CONTENTS 
DRIVE NUMBER 
INHIBIT PRINTOUTS ? 
ttR IF YES 
CR-LF 
CR-LF 

TYPE THE TIME 
SET THE ERROR FLAG 
DON'T LET THE FlAG GO TO ZERO 
DISPLAY TEST NUMBER AND ERROR FLAG 
8ELL ON ERROR? 
NO - SKIP 
RING BELL 

COLWT THE NUMBER OF ERRORS 
GET ADDRESS OF ERROR INSTRUCTION 

STRIP AND SAVE THE ERROR ITEM CODE 
SEE IF LOOP ON ERROR IS SET 
BRANCH AROUND ROUTINE IF SO 
SEE IF THIS IS THE POWER FAIL CALL 
BRANCH AROUND ROUTINE IF IT IS 

SEE IF THIS IS THE 2ND ERROR CALL IN THIS ROUTINE 
BRANCH IF SO 

SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
BRANCH IF SO 

SAVE CONTENTS OF ERROR VECTOR 
SETUP 'TRAP' RETURN ADDRESS 
MOVE CPU ERROR REGISTER TO rpsAVE FOR TEST 

;;SET CPU ERROR REGISTER TIMEOUT INDICATOR 
;; SETUP RETURN ADDRESS 



SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
BRANCH IF SO 

SEE IF POWER MONITOR BIT IS SET IN CPU ERR REG 

BRANCH IF OK 

CLEAR THE BIT FOUND SET 

MAKE I8SAVE N(JN-ZfcRO FOR DUAL ERROR CALL 

SET $ITEMB TO SPECIAL POWER FAIL POINTER 

BRANCH OVER I8SAV£ CLEARING 



L 
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035022 


105037 


C35126 




1003$: 


CLR8 


055026 








1004$: 




035026 


032777 


020000 


144120 




BIT 


03503A 


001004 








BNE 


035056 


004737 


055130 






JSR 


035042 


104401 


001203 






jypE 


0350A6 








20$: 




035046 


122737 


000001 


001226 




CMP8 


035054 


001007 








BNE 


035056 


113737 


001 1 30 


035070 




M0V8 


03506A 


004737 


036474 






JSR 


035070 


000 






21$: 


.SiTTE 


035071 


000 








.BYTE 


035072 


000777 






22$: 


BR 


035074 


105737 


035126 




2$: 


TSTB 


035100 


001005 








BNE 


035102 


005777 


144046 






TST 


035106 


100002 








BPL 


035110 


000000 








HALT 


035112 


104407 








CKSWR 


035114 








3$: 




035114 


105737 


035126 






TSTB 


035120 


001230 








BNE 


035122 


000002 








RTJ 


035124 


000000 






CPSAVE : 


.WORD 


035126 


000000 






I8SAVE: 


.WORD 
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I8SAVE ;; CLEAR 18SAVE SO 2ND TIWE "HROuGH EXITS 

*8JT13.aSWR ;;SKJP TYPEOUT IF SET 

20$ ;;SKIP TYPEOUTS 

PC.$ERRTYP ;;G0 TO USER ERROR ROUTINE 
.$CRLF 

#APTENV.$ENV ; .-RUNNING IN APT MODE 

2$ ;;N0.SKIP APT ERROR REPORT 

$ITEM8.21$ ;;SET ITEM NUMBER AS PRROR NUMBER 

PC.$ATY4 ; .-REPORT FATAL ERROR TO APT 

0 

0 

22$ ;;APT ERROR LOOP 

IBSAVE ;;SEE IF IBSAVE IS LOADED 

3$ ; .-BRANCH IF NOT - NO HALT ON PWR MON BIT ERROR 

SSWR .-.-HALT ON ERROR 

5$ .-.-SKIP IF CONTINUE 

.-.-HALT ON ERROR! 

.-.-TEST FOR CHANGE IN SOFT-SWR 

IBSAVE .-.-SEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL 

7$ .-.-BRANCH BACK TO CALL ORIGINAL ERROR 
;; RE TURN 

0 .-.-LOCATION TO SAVE CPU ERROR REG CONTENTS 

0 ; .-LOCATION TO SAVE HEM BVTE 



;r*1.B0 f<M05/^/<; PERF EXER 
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.S8TTL ERROR MESSAGE TYPEOUT ROUTINE 



S£0 0159 



•THIS ROUTINE LSES THE "ITEM CONTROL 8VTE" (SITEMB) 
•ERROR IS TO BE REPORTED. IT THEN OBTAINS. FROM ThE 
•AND REPORTS THE APPROPRIATE INFORMATION CONCERNING 



TO DETERMINE WHJCM 
"ERROR TABLE" fSERRTB), 
THE ERROR. 



C35130 
035130 
055134 
035136 
035140 
035144 



035152 
035154 
035156 
035162 
035164 
035172 
035176 
035200 
035202 
035204 
035206 
035210 
035214 
035220 
035222 
035224 
035226 
035232 
035236 
035240 
035242 
035244 
035250 
035252 
035254 
C35256 
035262 
035264 
035264 
035266 
035270 
035272 
035274 
035300 
035302 

035306 
035316 
035400 



104401 
010046 
005000 
153700 
001004 



335''46 013746 



104402 
000437 
122700 
001006 
013737 
012700 
000406 
005300 
006500 
006300 
006300 
062700 
012037 
001404 
104401 
000000 
104401 
012037 
001404 
104401 
000000 
104401 
011000 
001004 
012600 
104401 
000207 

013046 
104402 
005710 
001770 
104401 
000771 
040 

035316 
120 
124 



001203 
001 1 30 
001132 

000177 

001212 
035306 



003472 
035224 



001203 
035242 



001203 
001203 



035302 
040 

035400 

117 
105 



035446 



SERRTYP: 



1000$: 



1001$: 

2$: 
3$: 

4$ 
5$ 
6$ 

7$: 



000 8$: 

035432 PFECH: 

127 PFECHI: 

123 PFECH2: 



035432 035446 001132 035124 PFECH3: 



TYPE 
MOV 

CLR 

BISB 

BNE 

MOV 

TYPOC 

BR 

CMP8 

BNE 

MOV 

MOV 

BR 

DEC 

ASL 

ASL 

ASL 

ADD 

MOV 

BEQ 

TYPE 

.yoRn 

TYPE 

MOV 

BEG 

TYPE 

.WORD 

TYPE 

nov 

BNE 

MOV 

TYPE 

RfS 

MOV 

TYPOC 

TST 

BEO 

TYPE 

BR 

.ASCIZ 

.EVEN 

PFECHI, 

.ASCIZ 

•ASCIZ 

.EVEN 

.WORD 



.$CRLF 
RO.-(SP) 

RO 

»r$ITEMB,RO 
1$ 

$ERRPC.-(SP) 



6$ 

#1 77. RO 
1000$ 

$TESTN.PFTSTN 

#PFECH.RO 

1001$ 

RO 

RO 

RO 

RO 

ff$ERRT8,R0 

(R0)*.2$ 

3$ 

0 

.$CRLF 

(R0)*.4$ 

5$ 

0 

.$CRLF 
(RO) ,R0 
7$ 

<SP)*.R0 

,$CRLF 

PC 

a(RO)*.-(SP) 

(RO) 
6$ 
.8$ 
7$ 

/ / 



.•"CARRIAGE RETURN" I "LINE FEED" 
.•SAVE RO 

.•PICKUP THE ITEM INDEX 

;IF ITEM NLMBER IS ZERO. jUST 
;TYPE THE PC OF THE ERROR 
.-SAVE $ERRPC FOR TYPEOUT 
.ERROR ADDRESS 

;G0 TYPE— OCTAL ASCI I (ALL DIGITS) 
;GET OUT 

.SEE IF THIS ERROR CALL IS SPECIAL POWER FAIL 
.•BRANCH IF NOT 
.•GET TEST NLMBER 

.•MOVE POWER FAIL ERROR CALL TABLE TO PO 
.-BRANCH TO CALL ERROR 
.•ADJUST THE INDEX SO THAT IT WILL 
WORK FOR THE ERROR TABLE 



;FORM TABLE POINTER 

.•PICKUP "tRROfi MESSAGE" POINTER 

;SKIP TYPEOUT IF NO POINTER 

;TYPE THE "ERROR MESSAGE" 

;'IRR0R MESSAGE" POINTER GOES HERE 

.•"CARRIAGE RETURN" & "LINE FEED" 

.PICKUP 'DATA HEADER" POINTER 

.-SKIP TYPEOUT IF 0 

.TYPE THE 'DATA HEADER" 

;'T)ATA HEADER" POINTER GOES HERE 

."CARRIAGE RETURN" I "LINE FEED" 

; PI CKdP 'DATA TABLE" POINTER 

;G0 TYPE THE DATA 

'RESTORE RO 

!• "CARRIAGE RETL«N" & "LINE FEED" 
.RETURN 

;SAVE a(RO)* FOR TYPEOUT 

;G0 TYPE— OCTAL ASCI I (ALL DIGITS) 

;IS THERE ANOTHER NUMBER? 

;BR IF NO 

;TYPE TW0(2) SPACES 
.'LOOP 

;TW0(2) SPACES 



CALL 



PFECH?. PFECH3,PFErH4 ;. -WORDS DEFINING TABLES BELOW 
?POWER MONITOR BIT IN CPU ERROR REGISTER FOUND SF ^ 
7TESTN0 ERR PC CPUERRE6? 

PFTSTN,$ERRPC.CPSAVF.O 



E 1| 

;RMU80 RMOS/^/? PERF EXER »WCR0 VO^.OO 4-APR-81 01 PAGE <.^-' 

PRROR MESSAGE TvPEQUT ROUTINE ^f" t"*" 

0^5442 000 000 000 PfECH4: .8YTf 0.0.0,0 . _ 

Gilltt 000000 PFTSTN: .WORD 0 ;; CONTAINS TF ^iT NUHWft rO« W 61 T ER«* 



-V 



'"lACMO VGA. 00 4-APR-81 0'\:^2:d5 ^AGE 



,S8TTL TYPE ROUTINE 



13 
A4 



SEO 016^ 



035A50 
035^54 
C35456 
055460 
035462 
035464 
035470 
035476 
035500 
035506 
035510 
035514 
035520 
035522 
035530 
035532 
035534 
035536 
035540 
035542 
035546 
035550 
035554 
035556 
C35562 
035564 
035566 
035570 
035572 
035576 
035600 
035604 
035610 
035612 

035616 
035622 
035624 
035630 
C 35634 



ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 
•THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED, 



•N0TE1 
•N0Tt2 
•N0TE3 



•CALL: 

•1) USING A 

• TYPE 



SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CKARA.'TER. 
SFILLS CONTAINS THE NUMBER OF FiLLtR CHARACTERS REQUIRED. 
SFILIC CONTAINS THE CHARACTER TO FILL AFTER. 



•OR 



TRAP INSTRUCTION 
.MESADR 



;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 



TYPE 









■ • 
• • 


MESADR 






105737 


001173 




STYPE: 


TST8 


STPFLG 


;IS THERE A TERMINAL? 


100002 








BPL 


1$ 


;8R IF YES 


000000 








HALT 




."HALT HERE IF NO TERMINAL 


000430 








BR 


3$ 


.•LEAVE 


010046 






It: 


MOV 


RO,-(SP) 


.'SAVE RO 


01 7600 


000002 






MOV 


a2(SP),R0 


;GET ADDRESS OF ASCIZ STRING 


122737 


000001 


001226 




CMPB 


#APTENV,$ENV 


•.•RUNNING IN APT MODE 


001011 








BNE 


62$ 


•;N0,60 CHECK FOR APT CONSOLE 


132737 


000100 


001227 




BIT8 


#APT SPOOL, $ENVM 


•;SF>OOL MESSAGE TO APT 


001405 








BEQ 


62$ 


•.•NO, GO CHECK FOR CONSOLE 


010037 


035520 






MOV 


R0.61$ 


;; SETUP MESSAGE ADDRESS FOR APT 


004737 


036464 






JSR 


PC.$ATy3 


;; SPOOL MESSAGE TO APT 


000000 






611: 


.WORD 


0 


; .'MESSAGE ADDRESS 


132737 


000040 


001227 


621: 


BIT8 


#APTCSUP.$ENVM 


;;APT CONSOLE SUPPRESSED 


001003 








BNE 


60$ 


YES. SKIP TYPE OUT 


112046 






2$: 


M0V8 


<R0)*,-(SP) 


;;PUSH CHARACTER TO BE TYPED ONTO STACK 


001005 








BNE 


4$ 


;;8R IF If ISN'T THE TERMINATOR 


005726 








TST 


(SP)* 


;;IF TERMINATOR POP IT O^F THE STACK 


012600 






60$: 


MOV 


(SPJ+.RO 


RE STORE RO 


062716 


000002 




3$: 


ADD 


#2.(SP) 


; .'ADJUST RETURN PC 


000002 








RTI 




;; RE TURN 


122716 


00001 1 




<•»: 


CMP8 


mi i T f C r%\ 

wH\, (SP) 


.•.•BRANCH IP <HT> 


001430 








BEQ 


8$ 




122716 


000200 






CMP8 


#CRLF.(SP) 


;. -BRANCH IF NOT <CaLF> 


001006 








BNE 


5$ 




005726 








TST 


:SP)* 


;;POP <CR><LF> EOUIV 


104401 








^YPE 




;;TYPE A CR AND LF 


001203 








$CRLF 






105037 


036000 






CLR8 


$CKARCNT 


CLEAR CHARACTER COUNT 


000755 








BR 


2$ 


;;GET NEXT CHARACTER 


004737 


035662 




5$: 


JSR 


PC. $TYPEC 


;;G0 TYPE THIS CHARACTER 


123726 


001172 




61: 


CMPB 


$FILLC,<SP)» 


;;IS IT TIME TOR FILLER CHARS.? 


001350 








BNE 


2$ 


;;ir NO GO GET NEXT CHAR. 


013746 


001 1 70 






MOV 


$NULL.-(SP) 


;;GET » Of FILLER CHARS. NEEDED 










;;AND THE NULL CHAR. 


105366 


000001 




7$: 


DECB 


1 (SP) 


;;DOES A NULL NEED TO BE TYPED? 


002770 






8LT 


6$ 


;;8R IF NO— GO POP THE NULL OFF u> i'4 » 


004737 


035662 


/ 




JSR 


PC.$TYPEC 


.-.-GO TYPE A NULL 


105337 


036000 






DECB 


SCHARCNT 


;;D0 WT ""OUNT AS A COUNT 


000 770 








BR 




;;L00P 



G 13 



.-HORIZONTAL TA8 PROCESSOR 



03S636 


112716 


000040 




8S: 


M0V8 


035642 


004737 


03566? 




9$: 


JSR 


035646 


132737 


000007 


056000 




81 T8 


035654 


00137? 








BNE 


035656 


005726 








TST 


035660 


000724 








BR 


035662 








trypEC: 




035662 


1C5777 


143272 






TST8 


035666 


100022 








BPL 


035670 


01 7746 


143266 






MOV 


035674 


042716 


1 77600 






BIC 


035700 


122716 


000023 






CMP8 


035704 


001012 








BNE 


035706 








101$: 




035706 


105777 


143246 






TST8 


035712 


100375 








BPL 


C35714 


117716 


143242 






M0V8 


035720 


0427^6 


1 77600 






BIC 


035724 


122716 


000021 






CMP8 


035730 


001 366 








BNE 


IJ35732 








102$: 




035732 


005726 








TST 


035734 








10$: 




035734 


105777 


143224 






TST8 


035740 


100375 








BPL 


035742 


116677 


00000? 


143216 




M0V8 


035750 


122766 


00001 5 


000002 




CMP8 


035756 


r\r\^ i\f \ T 

001005 








BNE 


035760 


105037 


036000 






CLR8 


035764 


000406 








BR 


035766 


122766 


000012 


000002 


1$: 


CMPS 


035774 


001402 








8EQ 


035776 


105227 








INC8 


036000 


000000 
000207 






$CHARCMT:.WORD 


036002 






$TVPEX. 


RTS 



#• .(SP) 
PC.SrrPEC 
*7,$CHARCNT 
9$ 

lSP)» 
2$ 

a$TKS 
10$ 

a$TK8.-(SP) 
#177600. (SF) 
#$XOFF.(SP) 
102$ 

SSTKS 
101$ 

a$TK8-(SP) 
#1 77600. (SP) 
#$X0N.(SP) 
101$ 

(SP)* 

a$TPS 

10$ 

2(SP).a$TP8 
#CR.2(SP) 

1$ 

$CHARCNT 
$TyPEX 
#LF.2(SP) 
$TrPEX 

0 

PL 



; .-REPLACE TAB WITH SPACE 
;;TrPE A SPACE 
; .-BRANCH IF NOT AT 
;;T^8 STOP 

;;POP SPACE OFF STACK 
;;GET NEXT CHARACTER 

;;CHAR IN KV8D BUFFER? 
;;8R IF NOT 
;;GET CHAR 

.-.-STRIP EXTRANEOUS BFS 
;;WAS CHAR XOFF 
;;8R IF NOT 

;;WAIT FOR CHAR 

.-.-GET CHAR 
.-.•STRIP IT 
;;WA3 IT XON? 
;;8R IF NOT 

;;FIX STACK 

.-.-WAIT UNTIL PRINTER IS RFADV 

;;LOAD CHAR TO BE TYPED INTO DATA PEG. 

;;IS CHARACTER A CARRIAGE RETURN? 

.•.•BRANCH IF NO 

;;y£S— CLEAR CHARACTER COUNT 

;;EXIT 

;;IS CHARACTER A LINE FEED? 

..-BRANCH If YES 

;; COUNT THE CHARACTER 

;; CHARACTER COUNT STORAGE 
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A : : ASL T,Df 

.S8TTL BINARY TO OCTAL (ASLIJ; AND TVPf 



03600^ 
036010 
036016 
036022 
036026 
036030 
036036 
0360AA 
036052 
036054 
036056 
036060 
03606A 
036066 
036072 
036076 
C36102 
036106 
036M0 
036112 
0361U 
056116 
036120 
036122 
0361 2A 
036126 
036132 
036134 
036KO 
036K2 
036K4 
036:46 



01 ^646 
116637 
112637 
062716 
000406 
112737 
112737 
112737 
010346 
010446 
010546 
113704 
005404 
062704 
110437 
1 1 3704 
016605 
005003 
006105 
000404 
006105 
006105 
006105 
010503 
006103 
105337 
100016 
042'03 
001002 
005704 
00T403 
005204 



•THIS ROUTINE IS USED TO CHANGE A 16-91T BINARY NUMBER TO A 6-DIG;T 
•OCTAL (ASCII) NUMBER AND TYPE IT. 

•STYPOS ENTFR MERE tq SETUP SUPPRESS ZEROS AND NUMBER Of DIGITb TO Type 

•CALL: 

MOV NUM.-(SP) ;, -NUMBER TO BE TYPED 
TYPOS ;;CALL FOR TYPEObT 

.BYTE N ;;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

.BYTE M ;;M=1 OR 0 

;;1=TYPE LEADING ZEROS 
;;0=SUPPRfSS LEADING ZEROS 

•ITYPON ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE lAS' 

•$TYPOS OR STYPOC 
•CALl: 

MOV NUM.-(SP> .'.'NUMBER TO BE TYPED 

» 7YP0N ;;Call for typeout 

•STYPOC ENTER HERE FOR TYPEOUT OF A 16 BP NUMBER 

•CALL: 

• MOV NUM.-(SP) NUMBER TO BE TYPED 

• TYPOC .'.'CALL FOR TYPEOUT 



000000 

000001 036227 

036231 

000002 

000001 036227 
000006 036231 
000005 036226 



036231 

oooooe 

036250 
036227 
000012 



036230 
177770 



STYPOS: MOV a(SP),-(SP> 

M0V8 1(SP).$0FILL 

M0V8 (SP)*.$0M0DE*1 

ADD ir2,(SP) 

BR STYPON 

STYPOC: M0V8 #1.$0FILL 

M0V8 *6.$0M0DE*1 

ST^PON: wove *5.$0CNT 

MOV R3.-(SP; 

MOV R4.-(SP) 

MOV R5.-(SP) 

M0V8 S0M0DE*1.R4 

NEC R4 

ADD *6.R4 

M0V8 R4,S0M0DE 

M0V8 $0FILL.R4 

MOV 12(SP).RS 

CLR R3 

1$: ROL R5 

BR 3$ 

2$: ROL R5 

ROL R5 

ROL R5 

MOV R5,R3 

3$ : ROL R3 

DECB SOMODE 

BPL 7$ 

BIC #177770. R5 

BNE 4$ 

TST R4 

BEa 5$ 

4S- INC R4 



.-.'PICKUP THE MODE 
;;LOAD ZERO FILL SWITCH 
;;NLM3ER OF DIGITS TO TYPE 
; .-ADJUST RETURN ADDRESS 



;;SET THE 
.'.-SET FOR 
;;SET THE 
.-.-SAVE R3 
.-.-SAVE R4 
.-.-SAVE R5 
.-.-GET THE 



ZERO FILL SWITCH 
SIX(6) DIGITS 
ITERATION COUNT 



NUTBER OF DIGITS TO TYPE 



;;SUBTRACT IT FOR MAX. ALLOWED 

:;SAVE IT FOR USE 

;;GET THE ZERO FILL SWITCH 

; .-PICKUP THE INPUT NUMBER 

,-; CLEAR THE OUTPUT WORD 

; .-ROTATE MSB INTO "C" 

;.'G0 DO MSB 

;;FORM THIS DIGIT 



.'.•GET L58 OF THIS DIGP 

;;TYPE THIS DIGIT? 

;;8R IF NO 

.-.-GET RID OF JUNK 

.-.-TEST FOR 0 

;; SUPPRESS THIS 0? 

- 'BR IF YES 

;;DON'T SUPPRESS ANm Rf 



i^INAK* OCTAL (ASCII) AND TyPfc 



C 561 50 


052705 


000060 




BIS 


056154 


052703 


000040 


5$: 


BIS 


C 561 60 
056164 


110357 


036224 




M0V8 


104401 


056224 




TVPE 


056170 


105557 


056226 




Dk(.8 


056174 

056176 


003547 






BGT 


002402 






Bl* 


056200 


005204 






INC 


056202 


000744 






BR 


056204 


012605 




6t: 


MOV 


C 56206 


012604 






MOV 


056210 


012605 






MOV 


056212 


016666 
012616 


000002 000004 




MOV 


056220 






MOV 


056222 


000002 






RTI 


056224 


000 




8$. 


.avTE 


056225 


000 






.SrTE 


056226 


000 






.BrTE 


056227 


000 






.arrE 


C 562 50 


000000 




tOMODE : 


.WORD 



1 13 
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••0.R5 
• ' .R5 

R5jt 

.ei 

SOCN' 

2» 

6t 

R4 

?% 

rS'^;».R5 

(SP)*.R4 

(SP)»,R3 

2(SP).4(SP) 

fSP)*.(SP) 

0 
0 
0 
0 
0 



MAXE THIS DIGIT ASCII 

MAi;f ASCII IF NOT ALRfADv 

SAVE FOR TAPING 

GO TfPE THIS DIGIT 

COUNT 8V 1 

8R IF MORE TO 00 

8R IF DONE 

INSURE LAST DIGIT ISN'T A BLANtr 
GO DO THE LAST DIGIT 
RESTORE R5 
RESTORE R4 
RESTORE R5 

SET THE STACK FOR RETu(%NING 

'RE Turn 

•STORAGE FOR ASCII DIGIT 
.•TERMINATOR FOR TyPE ROUTINE 
.•OCTAL DIGIT COUNTER 
;7ER0 FILL SWITCH 
.•NUMBER Of DIGITS TO TvPE 
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' ":\Af" Dt 'i-^AL AND ^yPE rocitinf 

.S8TIL CONVERT BINARV TO DECIMAL AND TVPE ROUTINE 

•ilHjS ROUTINE IS USED TO CHANGE A 16-81 T BINARY NUMBER TO A 5-DIGIT 
.••SIGNED DECIMAL (ASCII) NUMBER AND TYPE II. DEPENDING ON WHETHER THf 
.■•NUMBER IS POSITIVE OR NEGATIVE A S^ACE OR A MINUS SIGN WiLI BE TyPfD 
.■•BEFORE THE FIRST DIGIT OF THE NUMBER. _EADING 7ER0S WILL ALWAYS BE 
.••REPLACED WITH SPACES. 
.••CA^L: 

MOV NL*^.-(SP) ;;PJI THE BINARY NUMBER ON THf STA(r 

;• TVPDS ;;G0 TO THE ROUTINE 



03623? 








STYPDS: 










036232 


010046 








MOV 


R0,-(3P^ 


.-PUSH RO ON STACK 




C3623A 


010146 








MOV 


R1.-(SP) 
R2.-(SP) 


;PUSH R1 ON STACK 




036236 


010246 








MOV 


.'PUSH R2 ON STACK 




0362^0 


010346 








MOV 


R3.-(SP) 


;PUSH R3 ON STACK 




0562A2 


010546 








MOV 


R5.-(SP) 


;PUSH R5 ON STACK 




036244 


012746 


020200 






MOV 


#20200. -(SP) 


;SET BLANK' SWITCH AND SIGN 




036250 


016605 


000020 






MOV 


20(SP),R5 


;t£T THE INPUT NlfBER 




036254 


100004 








BPL 


IS 


;8R IF IMPUT IS POS. 




036256 


005405 








NEG 


RS 


.-MAKE THE BINARY NUMBER POS. 




036260 


112766 


000055 


000001 




M0V8 


#'-.1(SP) 


.-MAKE THE ASCII NU^R NEG, 




036266 


005000 






IS: 


CLR 


RO 


.•ZERO THE CONSTANTS INDEX 




036270 


01 2703 


036446 






MOV 


#$D8LK,R3 ; 
#• ,(R5)*^ 


.•SETUP THE OUTPUT POINTER 




036274 


112723 


000040 






M0V8 


;SET THE FIRST CHARACTER TO A BLANi' 


036300 


005002 






2$: 


CLR 


R2 


.•CLEAR THE BCD NlWBER 
;6ET THE CONSTANT 




036302 


016001 


036436 






MOV 


$')T8L(R0),R1 




036306 


■:60105 






3$: 


sue 


R1.R5 


;f0R« THIS BCD DIGIT 




056310 


002402 








BLT 


4$ 


;BR IF DONE 




036312 


005202 








INC 


R2 


.-INCREASE THE BCD DIGIT BY 1 




0563K 


000774 








BR 


3$ 






036316 


060105 






4S: 


ADD 


R1,R5 


;ADD BACK THE CONSTANT 




036320 


005 70? 








TST 


R2 


.'CHECK IF BCD DIGIT^O 




036322 


001002 








BNE 


5$ 


.■FALL THROUGH IF 0 




036324 


105716 








TST8 


(SP) 


.•STILL DOING LEADING O'S? 




036326 


100407 








BM] 


7S 


;QR IF VES 




036330 


106316 






5$: 


ASL8 


(SP) 


.•MSD? 




036332 


103003 








BCC 


6$ ; 


;8R IF NO 




036334 


116663 


000001 


1 77777 




M0V9 


1(SP).-1(R3) 


; YES—SET THE SIGN 




036342 


052702 


000060 




6$: 


BIS 


#'0,R2 


;MAKE THE BCD DIGIT ASCII 




036 346 


052702 


000040 




7$; 


BIS 


#• ,R2 


;MAKE IT A SPACE IF NOT ALREADY A 


DIGIT 


036352 


110223 








M0V8 


R2.(R5)* 


;PUT THIS CHARACTER IN THE OUTPUT 


BUFFER 


036354 


005720 








Tsr 


(RO)* 


;JUST INCREMENTING 




036356 


020027 


000010 






CMP 


RC.4riO 


.-CHECK THE TABLE INDEX 




036362 


002746 








BLT 


2$ 


.GO DO THE NEXT DIGIT 




036364 


003002 








BGT 


8$ 


;G0 TO EXIT 




036366 


010502 








MOV 


R5,R2 


.-GET THE LSD 




U36370 
036372 


000764 








BR 


6$ 


.•GO CHANGE TO ASCII 




105726 






8S: 


TST8 


(SP)* 


.-WAS THE LSD THE FIRST NON-ZERO? 




036374 


100003 








BPL 


91 


;BR IF NO 




036376 


116663 


M7777 


1 7777fi 




M0V8 


-1(SP),-2(R3) 


; VES— SET THE SIGN FOR TYPING 




036404 


105013 






9$: 


CLR8 


{R3) 


;SET THE TERMINATOR 




036406 


012605 








MOV 


{SP)*,R5 


;POP STACK INTO R5 




036410 


012603 








MOV 


{SP)*.R? 


.•POP STACK INTO R3 




056412 


012602 








MOV 


(SP)*.R? 


;POP STACK INTO R2 




0364U 


012601 








MOv 


(SP)*.R1 


;POP STACK INTO R1 





:P(Mij80 RM05/5/2 PfcRF EXER MACRO V04.00 

"NVERT BINARY TO DECIMAL AND TYPE ROUTINE 
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C56416 
056420 
056424 
036452 
056454 
056456 
056440 
056442 
056444 
056446 



& 12600 
104401 
016666 
012616 
000002 
025420 
001750 
000144 
000012 



C 56446 
000002 



000004 



tDT8L : 



$D8LK.- 



MOV 

TYPE 

MOV 

MOV 

RTI 

10000. 

1000. 

100. 

10. 

.BLKU 



(bP)»,RO 

2(SPJ,4(SP) 
{SP)*.(SP) 



;POP STACK INTO RO 
;NOW TYPE THE NUMBER 
.'ADJUST THE STACK 

; RETURN TO USER 
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APT tOMMLiNICAT'ONS RO'JTIME SEO 016/ 

.S8TTL APT CCmjM CAT IONS ROUTINE 



C36456 


112737 


000001 


036722 


SATVI : 


M0V8 


«1.$FFLG 


;T0 REPORT FATAL ERROP 


0%A6A 


112737 


000001 


036720 


$ATy3: 


M0V8 


#1.$MFLG 


;T0 TYPE A MESSAGE 


036472 


000403 








BR 


$ArYC 




036474 


112737 


000001 


036722 


$ATY4: 


novB 


»1. SFFLG 


;T0 ONLY REPORT FATAL ERROR 


036502 








$ATYC: 






;PUSH RO ON STACK 


036502 


010046 








MOV 


RO.-(SP) 


0V)504 


010146 








MOV 


R1,-(SP) 


.'PUSH R1 ON STACK 


036506 


105737 


036720 






TST8 


SMFLG 


.-SHOULD TYPE A MESSAGE? 


036512 


001450 








BEQ 


5$ 


;IF NOT: BR 
.•OPERATING UNDER APT? 


036514 


122737 


000001 


001226 




CMP8 


*APTtNV.$ENV 


036522 


001031 








BNE 


3$ 


;JF NOT: BR 

.•SHOULD SPOOL MESSAGES? 


056524 


1 32737 


000100 


001227 




BITS 


*APTSPOOL.$ENVM ; 


036532 


001425 








BEQ 


3$ 


;IF NOT; BR 


036534 


01 7600 


000004 






MOV 


a4(SP),R0 


;GET MESSAGE ADDR. 


036540 


062766 


000002 


000004 




ADD 


#2.4(SP) 


;;8UMP RETURN ADDR. 
;SEE IF DONE W/ LAST XMISSION? 


036546 


005737 


001206 




1$: 


'ST 


$MSGTYPE 


C36552 


001375 








BNE 


1$ ; 


;IF NOT: WAIT 


036554 


010037 


001222 






MOV 


RO,$MSGAD 


;PUT ADDR IN MAILBOX 


036560 


105720 






2$: 


TST8 


(R0) + 


.-FIND END OF MESSAGE 


036562 


001376 








BNE 


2$ 




036564 


1 63700 


001 222 






SUB 


SHSGAD.ftO 


;SUB START OF MESSAGE 


036570 


006200 








ASR 


RO 


;GET MESSAGE LNGTH IN WORDS 


036572 


010037 


001224 






MOV 


RO.SMSGLGT 


.-PUT LENGTH JN MAILBOX 


036576 


012737 


000004 


051206 




MOV 


#4,$MSGTYrE ; 


;TELL APT TO TAKE MSG. 


036604 


000413 








BR 


5$ 




036606 


017637 


000004 


036632 


3$: 


MOV 


a4(SP).4$ 


;PUT MSG ADDR IN JSR LINKAGE 


036614 


062766 


000002 


000004 




ADD 


#2.4(SP) 


; -BUMP RETURN ADDRESS 


036622 


013746 


1 77^76 






MOV 


177776. -iSP) ; 


;PUSH 1^7776 STACK 


03662b 


004737 


035450 






JSR 


PC.STYPE 


;CALl type MACRO 


036632 


000000 






4$: 


.WORD 


0 




036634 








5$: 








036634 


105737 


036722 




10$: 


TST8 


$FF LG 


.-SHOULD REPORT FATAL ERROR? 


036640 


001416 








BEQ 


12$ 


;IF NOT: BR 


036642 


005737 


001 226 






TST 


JENV 


.'RUNNING UNDER APT? 


036646 


001413 








BEQ 


12$ 


;IF NOT: BR 


036650 


005737 


001206 




11$: 


TST 


SMSGTYPE 


.•FINISHED LAST MESSAGE? 


036654 


001375 








BNE 


n$ 


;IF NOT: WAIT 


036656 


017637 


000004 


001210 




MOV 


a^CSP) ,$FATAL 


;GET ERROR * 


C 36664 


062766 


000002 


000004 




ADD 


f2.4(SP) 


;.-BUMP RETURN ADDR. 


036672 


005237 


001206 






INC 


$«SGTYPE 


;TELL APT TO TAKE ERROR 


036676 


105037 


036722 




12$: 


CLR8 


$fFLG 


.'CLEAR FATAL FLAG 


036702 


105037 


036721 






CLR8 


$LFLG 


.'CLEAR LOG FLAG 


036706 


105037 


036720 






CLR8 


$MFLG 


.'CLEAR MESSAGE FLAG 


036712 


012601 








MOV 


(SP)+,R1 


;POP STACK INTO R1 


036714 


012600 








MOV 


(SP)+,RO 


;POP STACK INTO RO 


036716 


000207 








RTS 


PC 


.'RETURN 


056720 


AAA 

000 






$MFLG; 


.BYTE 


0 


.'Mc55o. FLAG 


036721 


000 






$lFLG: 


.BYTE 


0 


.-LOG FLAG 


036722 


000 

000200 
000C01 






$FFLG: 

APTSIZE 
APTENV 


.BYTE 
.EVEN 

= 200 
- 001 


0 


.'FATAL FLAG 




000100 






APT SPOOL- 100 








000040 






APTCSUP 


= 040 
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SEO 0168 



.S8TTL RANDOM NUMBER GENERATOR ROUTINE 



056724 
05672A 
036726 
056730 
036732 
056736 
036742 
036746 
036750 
036752 
036754 
036756 
036762 
036764 
036770 
036774 
036776 
037002 
037006 
037012 
037014 
037016 
037020 
037022 
037024 



010046 

010146 

010246 

013700 

013701 

012702 

006300 

006101 

005202 

001374 

063700 

005501 

063701 

062700 

005501 

062701 

010037 

010137 

012602 

012601 

012600 

000207 

176543 

123456 



057024 
037022 
177771 



037024 

037022 
001057 

047401 
037024 
037022 



THIS ROUTINE IS A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR 
WITH A RANGE OF 0 TO 2(*33)-l. 



CALL: 



SRAND : 



IS: 



I^R 




RF TdRIM 


MOV 


on -(<sp) 


MOV 


R1 (SP) 


MOV 


D?'_( CD) 


MOV 


Si ONIJM RO 


MOV 


Shtnum R1 


MOV 


tt"? R2 


ASL 


RO 


ROL 


Rl 


INC 


R2 


BNE 


T$ 


ADD 


ilONUM RO 


ADC 


R1 


ADD 


SHINUM.Rl 


ADD 


*1057,R0 


ADC 


Rl 


ADD 


<f47401.Rl 


MOV 


RO.SLONUM 


MOV 


Rl .$HINL#1 


MOV 


(SP)*,R2 


MOV 


(SP)+,R1 


MOV 


{SP)*.R0 


RTS 


PC 


.WORD 


176543 


.WORD 


123456 



CALL THE ROUTINE 
RETURN HERE THE RANDOM 
NUMBER WILL BE IN 
SHINUM.SLONUM 



PUSH RO ON STACK 

PUSH Rl ON STACK 

PUSH R2 ON STACK 

SET RO WITH LOW 

SET Rl WJTH HIGH 

SET SHIFT COUNT 

SHIFT RO LEFT AND 

ROTATE CARRY INTO Rl AND 

CHECK FOR DONE 

CONTINUE SHIFT LOOP 

ADD NU«bc' MAKE X 129 

PROPOGAi: ' ^f^Y 

ADD NlWBtK MAKE X 129 

ADD LOW CONSTANT 

PROROGATE CARRY 

ADD HIGH CONSTANT 

SAVE RO 

SAVE Rl 

POP STACK INTO R2 
POP STACK INTO Rl 
POP STACK INTO RO 
RETURN 
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SAvE AND RESTORE R0-R5 ROUTINES 
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5£0 GUV 



.S8TTL SAVE AND RESTORE R0-R5 ROUTINES 



037026 

037026 010046 

C37030 010146 

037032 010246 

037034 010346 

037036 010446 

037040 010546 

037042 01 6646 000022 

037046 016646 000022 

037052 016646 000022 

037056 016646 000022 

037062 000002 



037064 

037064 012666 000022 

037070 012666 000022 

037074 012666 000022 

037100 012666 000022 

037104 012605 

037106 012604 

037110 012603 

037112 012602 

037114 012601 

037116 012600 

037120 000002 



SAVE R0-R5 
CALL: 

SAVRE6 

UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE; 



TOP ( + 16) 

♦2 (*18) 

♦4 R5 

♦6 R4 

♦8 R3 

♦ 10 R2 

♦ 12 R1 

♦ 14 RO 



SSAVREG: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 

•RESTORE R0-R5 



RO.-(SP) 

R1,-(SP) 

R2,-(SP> 

R3.-CSP) 

R4,-(SP) 

R5,-(SP) 

22(SP),-(SP) 

22(SP),-(SP) 

22(SP).-(SP) 

22CSP),-(SP) 



•CALL! 



SRESREG: 



RESREG 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 



(SP)+.22(SP) 

(SP)+.22(SP) 

( SP)*. 22 (SP) 

(SP)*,22(SP) 

(SP)*,R5 

(SP)^.R4 

(SP)+,R3 

(SP)^.R2 

CSP)+.R1 

($?)♦, RO 



PUSH 
PUSH 
PUSH 
PUSH 
PU H 
PUSH 
SAVE 
SAVE 
SAVE 
SAVE 



RO ON 

R1 ON 

R2 ON 

R3 ON 

R4 o^: 

R5 0', 

PS Uf 

PC OF 

PS OF 

PC OF 



STACK 

STACK 

STACK 

STACK 

STACK 

STACK 

MAIN FLOW 

MAIN FLOW 

CALL 

CALL 



RESTORE PC OF CALL 
RESTORE PS OF CALL 
RESTORE PC OF MAIN FLOW 
RESTORE PS OF MAIN FLOW 
POP STACK INTO R5 
POP STACK INTO R4 
POP STACK INTO R3 
POP STACK INTO R2 
POP STACK INTO R1 
OOP STACK INTO RO 
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DOUBLE LENGTH BIMARr tq DECIMAL ASCII CONVERT ROUTINE SEO 01^0 

.SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 

•iTHlS ROUTINE WILL CONVERT A 32-61 T BINAPv NLfBER TO AN UNSIGNED 
.••DECIMAL (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 
.-•POSITIVE. 
.■•CALL 

;• MOV #PNTR,-(SP) .-.-POINTER TO LOW WORD OF BINARY NUMBER 

JSR PC.a#$DBcD 

RETURN ;;THE FIRST ADDRESS OF ASC IZ 

;;IS ON THE STACK 



037122 


104412 


$D82D : 


SAVREG 




- -SAVE REGISTERS 


037124 


016602 


000002 


MOV 


2(SP) ,R2 


;; PICKUP THE DATA POINTER 


037130 


012700 


037302 


MOV 


*$DECVL .RO 


•:GET ADDRESS OF "IDECVL" STRING 


0371 3A 


010066 


000002 


MOV 


RO 2(SP) 


::PUT ADDRESS OF ASCI2 STRING ON 


037U0 


012201 




MOV 


(R2)*,R1 


::PKKUP THE BINARY NUMBER 


037142 


012202 




MOV 


(R2i ♦.R2 


C37144 


012737 


000012 037220 


MOV 


»^0. .4$ 


;.SET UP TO DO 10 CONVERSIONS 


037152 


012704 


037232 


MOV 


#STNPWR,R4 


.-.-ADDRESS OF TEN POWER 


037156 


012705 


037234 


MOV 


«$TNPWR«2,R5 




037162 


005003 




CLH 


R3 


.-.-CLEAR PARTIAL 


037164 


161401 


2S: 


sue 


(R4) ,R1 


.-.-SUBTRACT TEN POWER 


037166 


005602 




SBC 


R2 




037170 


161502 




SUB 


(R5) ,R2 




037172 


002402 




BLT 


3$ 


;.-8R IF TEN POWER TO LARGE 


0371 74 


005203 




INC 


R3 


.-.-ADD 1 TO PARTIAL 


037176 


000772 




BR 


2$ 


.-.-LOOP 


037200 


062401 


3$: 


ADD 


(R4.^*,Rt 


.-.•RESTORE SUBTRACTED VALUE 


037202 


005502 




ADC 


R2 




037204 


062402 




ADD 


(R4) ♦.R2 




037206 


022525 




CMP 


(R5)*-(R5)* 


.-.-MOVE TO NEXT TEN POWER 


037210 


052703 


000060 


BIS 


*'0.R3 


:; CHANGE PARTIAL TO ASCII 


037214 


110320 




M0V8 


R3.(R0)* 


;;SAVE IT 


037216 


005327 




DEC 


(PC)* 


;;DONE? 


037220 


000000 


4$: 


.WORD 


0 




057222 


001357 




BNE 


1$ 


;;8R IF NO 


037224 


105020 




CLR8 


(RO)* 


.•.-TERMINATOR 


037226 
037230 


104413 




RESREG* 




; .-RESTORE REGISTERS 


000207 




RTS 


PC 


;; RETURN 


037232 


145000 


STNPWR: 


145000 




;;1.0E09 


037234 


035632 




35632 






037236 


160400 




160400 




;;1.0E08 


037240 


002765 




2765 






037242 


113200 




1 1 3200 




;;1.0E07 


037244 


000230 




•230 






037246 


041100 




041100 




;.-1.0E06 


037250 


00001 7 




17 






037252 


103240 




103240 




.-.-I.OEO': 


037254 


000001 




1 






037256 


023420 




23420 




.-;1.0E04 


037260 


000000 




0 






037262 


001750 




1750 




;.-1.0E03 


037264 
037266 


000000 




0 






000144 




144 




;;1.0E02 


037270 


000000 




0 
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DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 



03727? 
037274 
037276 
037500 
037302 



0000-'2 
000000 
000001 
000000 



$DECVl; 



12 

0 

1 

0 

.8LK8 



12. 



;1.0E01 
;1.0E00 

.-RESERVE STORAGE FOR ASCI/ STRING 



1 
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DOOBLf lEI^Tm binary TO OC^AL ASCII CONVERT ROUTINE 



U 

51 



,S8TTl double length BINARY TO OCTAL ASCII CONVERT ROUTINE 



•THIS ROUTINE WILL CONVERT A 32-61 T UNSIGNED BINARY NUMBER TO AN 
•UNSIGNED OCTAL ASCI7 NUMBER. 









.••CALL 














• • 


HOV 


#ONTR,-{SP) 


.•POINTER TO LOW WORD OF BINARY NUMBER 








• » 


JSR 


PC,»rSDB20 

; 


.-CALL THE ROUTINE 








• • 


RETURN 


;THE ADDRESS OF THE FIRST ASCI7 CHAR. IS ON 


037316 


104412 




$D820: 


SAVREG 




.■SAVE ALL REGISTERS 


057320 


016601 


000002 




HOV 


2(SP).R1 ; 


.•PICKUP ''HE POINTER TO LOW WORD 


037324 


0^705 


037435 




MOV 


#$OCrVL*13..R5 ; 


.•POINTER TO DATA TABLE 


037330 


012704 


000014 




MOV 


#12.. R4 


.•DO ELEVEN CHARACTERS 


037334 


01270^ 


1 7777Q 




MOV 


#*C7,R3 ; 


.MASK 


037340 


012100 






MOV 


(R1)*,R0 


.■LOWER WORD 


037342 


012101 






MOV 


(R1)+,R1 


.•HIGH WORD 


037344 


005002 






CLR 


R2 


; TERMINATOR 


C37346 


r0245 




It: 


M0V8 


R2.-{R5) 


;PUT CHARACTER IN DATA TABLE 


037350 


010002 






MOV 


R0,R2 


;6ET THIS DIGIT 


037352 


005304 






DEC 


R4 


.■COUNT THIS CHARACTER 


037354 


003007 






BGT 


3$ 


;8R IF NOT THE LAST DIGIT 


037356 


001405 






BEG 


2$ 


;8R IF IT IS THE LAST DIGIT 


037360 


005205 






INC 


R5 


.-ALL DIGITS DONE-ADJUST POINTER FOR FIRST 


037362 


010566 


000002 




MOV 


R5,2(SP) 


;ASCIZ CHAR, ft f\IT 11 ON THE STACK 


037366 


104413 






RESREG 




.•RESTORE ALL REGISTERS 


0^/370 


000207 






RTS 


PC ; 


.■RETURN TO USER 


037372 


006203 




2J: 


ASR 


R3 


.•POSITION THE MASK FOR THE LAST DIGIT 


037374 


006001 




5$: 


ROR 


R 1 ; 


.POSIT J ON THE BINARY NLnStR FUR 


037376 


006000 






ROR 


RO 


THE NEXT OCTAL DIGIT 


037400 


006001 






ROR 


R1 




037402 


006000 






ROR 


RO 




037404 


006001 






ROR 


R1 




037406 


006000 






ROR 


RO 




037410 


040302 






BIC 


R3.R2 


.•MASK OUT ALL JUNK 


037412 


062702 


000060 




ADD 


#'0,R2 


;MAKE THIS CHAR. ASCII 


037416 


0007^3 






BR 


1$ 


;G0 PUT IT IN THE DATA TABLE 


037420 






tOCTVL: 


.8LK8 


14. 


.•RESERVE DATA TABLE 



E U 

"JRMUBO PER^ fxld MA'RO VOA.OO A-APR-81 0^:^,2:d^ PAGE 52 

c>CwER DOWN AND oP ROUT INF S 



,SRTTL POWER DOWN AND UP ROUTINES 



037436 
037444 
037452 
037454 
037456 
037460 
037462 
037464 
037466 
037472 
037476 
037504 
037506 



012737 
012757 
010046 
010146 
010246 
010346 
010446 
010546 
01 7746 
010637 
012737 
000000 
000776 



037610 000024 
000340 000026 



14U62 
037614 

037510 000024 



.•POWER DOWN ROUTINE 

tPWRDN: MOV #SI LLUP.itPWRVEC 

MOV *340.a#PWRVEC*2 

MOV RO.-(SP) 

MOV Rl.-(SP) 

MOV R2,-(SP) 

MOV R3.-(SP) 

MOV R4,-(SP) 

MOV R5.-(SP) 

MOV aSWR.-(SP> 

MOV SP,$SAVR6 

MOV 4rSPWRUP . a#PWR VE C 

HALT 

BR .-2 ;;HANG UP 



;;SET FOR FAST UP 
:;PRI0:7 

;;PUSH RO ON STACK 
;;PU5H Ri ON STACK 
;;PUSH R2 ON STACK 
;;PUSH R3 ON STACK 
;;PUSH R4 ON STACK 
;;PUSH R5 ON STACK 
;;PUSH aswR ON STACK 
;;SAVE SP 
;;SET UP VECTOR 



2 
3 
4 
5 
6 
7 
8 
9 
10 
M 
T2 
'5 
■■4 











•POWER UP ROUT 


037510 


012737 


037610 


000024 


SPWRUP: 


MOV 


037516 


013706 


037614 






MOV 


037522 


005037 


037614 






CLR 


037526 


005237 


037614 




1S: 


INC 


037552 


001375 








BNE 


037534 


005337 


037616 




2$: 


DEC 


037540 


003775 








BLE 


037542 


012677 


141406 






MOV 


037546 


012605 








MOV 


037550 


012604 








MOV 


037552 


012603 








MOV 


037554 


012602 








MOV 


037556 


012601 








MOV 


037560 


012600 








MOV 


037562 


CI 2737 


037436 


000024 




MOV 


037570 


012737 


000340 


000026 




MOV 


037576 


104401 








TYPE 


037600 


037620 






SPbftMG: 


.WORD 


037602 


012716 








MOV 


037604 


057636 






JPWRAr: 




037606 


000002 








RTI 


C37610 


000000 






SILLUP: 


HALT 


037612 


000776 








BR 


037614 


000000 






$SAVR6: 


0 


037616 


000000 






PURFLG: 


.WORD 


037620 


200 


042 


120 


SPOWER: 
EVEN 


.ASCIZ 



INE 

#tILLUP,a#PWRVEC 
$SAVR6,SP 
$SAVR6 
tSAVR6 
IS 

PWRFLG 
2S 

(SP.w.aswR 

(SP)*.R5 
(SP)*,R4 
(SP)*.R3 
(SP)*,R2 
(SP)*,R1 
(SP)*.RO 

#SPWRDN,a#PWRVEC 
»340,a#PWRVEC>2 ; 

SPOWER ; 

(PC)*.(SP) 
SATPOW 



;;SET FOR FAST DOWN 
.-GET SP 

;WA]T LOOP FOR THE TTV 
:WAIT FOR THE INC 
:0F WORD 

WAIT AND SET POWER FAIL FLAG 

WAIT FOR FLAG= 1 

;POP STACK INTO aSWR 

;POP STACK INTO R5 

;POP STACK INTO R4 

;POP STACK INTO R3 

;POP STACK INTO R2 

;POP STACK INTO R1 

;POP STACK INTO RO 

;;SET UP THE POWER DOWN VECTOR 

;PRI0:7 

.REPORT THE POWER FAILURE 
.•POWER FAIL MESSAGE POINTER 
.RESTART AT SATPOW 
.RESTART ADDRESS 



;;THE POWER UP SEQUENCE WAS STARTED 
;; BEFORE THE POWER DOWN WAS COMPLETE 
;;PUT THE SP HtRE 
0 .-INDICATES POWER FAIL OCCURRED WHEN S 

<CRLF>/"POWER UP /<CRLF> 



.-POWER UP ROUTINE ,WAIT TWO MINUTES. 
;TH£N AUTO STARTS AT SIZMEM 



037636 005227 000000 

037642 001 375 

037644 000005 

037646 005037 001 346 

037652 005037 00^350 

037656 005037 001454 



SATPOW: INC 
BNE 

RESET 
CLR 
CLR 
CLR 



#0 

.-4 

MINUTE 

SECOND 
1NTRVL*2 



TTV LOOP. WAIT FOR INCREMENT 
OF WORD 

CLEAR THE WORLD 
RESET MINUTE COUNT 
RESET SECOND COUNT 
RESET THE INTERVAL COUNT 



ZRHJBU RM05/?/2 Ptftf EXEP( •WC«0 v04.0C 

POWER DOWN AND UP ROUTINES 

'5 03766? 005057 '7777^^ 

16 057666 004757 C?5544 

17 057672 022757 000002 00U5A i$: 

18 057700 101574 

19 037702 012737 000400 001556 

20 057710 012705 001506 

21 057714 005025 2»: 

22 057716 022705 002044 
>5 057722 001574 

24 057724 000157 005112 



t 



F 14 
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CLR WPS 

JSR PC.CKCLK 

CMP #2.1NTRVL»2 

BHI 1$ 

MOV #400.CHGA0R 

MOV *0RDERQ.R5 

CLR Cft5)* 

CMP #8LKADR.R5 

BNE 2S 

JMP SIZMEM 



CLEAR PSW 

START THE CLOCK 

TWO MINUTES rET ? 

WAIT IF NOT 

FUDGE THE AUTO START 

CLEAR UP THE QUE AND 9U»FfR 

ALL DONE '> 
8RANCM IF NOT 
LOOP BACK 



▼lUP DEcOOtP 



MAC-^O V04.00 



G U 
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,S8TTL TRAP DECODER 



SfO 017', 



057730 010046 

03773? 016600 000002 

037736 005740 

037740 mooo 

057742 006500 

03774A 016000 057764 

0577^0 000200 



•THIS ROUTINE WILL PICKUP THE LOWER BrT£ Of THE 
•AND USE IT TO INDEX THROlGH THE TRAP TA8LE FOR 
•OF THE DESIRED ROUTINE. THEN USING THE ADDRESS 
•GO TO THAT ROUTINE. 



"TRAP" INSTRUCTION 
THE STARTING ADDRESS 
OeiAINEl' IT WILL 



tTRAP: MOV 


RO,-{SP) 


MOV 


2(jP). RO 


TST 


-(RO) 


MOVB 


(RO).RO 


A3L 


RO 


MOV 


STRPAD(RO),RO 


RTS 


RO 



;;SAVE RO 

;;GET TRAP ADDRESS 

;;8ACKUP Br 2 

;;GET RIGHT SrTE OF TRAP 

; .'POSITION FOR INDEXING 

;; INDEX TO TABLE 

;;G0 TO ROUTINE 



C37752 011646 

0^7754 016666 000004 

057762 000002 



037764 
057766 
057770 
057772 
057774 
057776 



057752 
055450 
056050 
056004 
036044 
056252 



040000 055616 



000002 



040002 
040004 
C40006 
040010 
040012 
2 040014 



055526 
054070 
054160 
057026 
057064 
052616 
000032 



;;THIS IS USE 

$TRAP2: MOV 
MOV 
RTI 



TO HANDLE THE "GE TPRK ' MACRO 



(SP).-(SP) 
4(SP).2fSP) 



;;MOVE THE PC DOWN 
;;MOVE THE PSW DOWN 
; .-RESTORE THE PSW 



.S8TTL TRAP TA8LE 



.-•THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
.••8Y THE "TRAP" INSTRUCTION. 



STRPAD: 



ROUTINE 

.WORD 

STYPE 

STYPOC 

STYPOS 

ITVPON 

$TVPDS 



$TRAP2 

;;CALL=TYPE 

;;CALL=TYPOC 

;;CAlL=TrPOS 

;;CALL=TYPON 

;;CALL=TVPDS 



TRAP*1( 104401) 
TR.AP*2( 104402) 
TRAP*3(104405) 
TRAP«4n 04404) 
TRAP*5( 104405) 



TTY TVPEOUT ROUTINE 

TYPE OCTAL NlfBER (WFH LEADING ZEROS) 
TYPE OCTAL NJWEP (NO LEADING ZEROS) 
TYPf OCTAL NUMBER (AS "ER LAST CALL) 
TYPE DECIHAL NUPBER (WITH SIGN) 



SGTSWR ;;CAU=GTSWR TRAP*6( 104406) GET SOFT-SUR SETTING 



$Tcf<M 



SCKSyR 
SRDCHR 
SROLIN 
fSAVREG 
tRESREG 
$DSOL r 
,-STRPAD 



;;CALL=CKSWP 

;;CALL-RDCHR 

;;CAU--RDLIN 

;;CALL=SAVREG 

;;CALL=RESREG 

;;CALL=DISPLY 



TRAP»7( 104407) TEST FOR CHANGE IN SOFT-SWR 

TRAP*10(104410) TTY TYPEIN CHARACTER ROUTINE 

TRAP*11 (104411) TTY TYPEIN STRING ROUTINE 

TRAP*12(104412) SAVE R0-R5 ROUTINE 

TRAP*1 3(10441 5) RESTORE R0-R5 ROUTINE 

TRAP»U(104414) ROUTINE TO TYPE ERROR MESSAGE 



3 

S 

5 



MACHO VOA.OO 
(f)fv t.Si 1081 
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U 
54 



SFQ 017' 



8 

n 

li 

16 
^8 

25 
?4 

?5 
26 

cV 

28 
29 
50 
33 



54 

55 
56 
57 
58 
59 
40 
45 



040026 
040027 
040030 
040031 
040032 
040033 
040054 
040035 



44 
45 
46 
47 
48 
49 



040056 
040037 
040040 
040041 
040042 
040043 
040044 
040045 



.S8TTL SINGLE/DUAl PORT Rm/RM DRIVER fREV 6.5) 1981 



;NEW DRIVE TYPE ID FOR RM02 

;l0-AUG-77 

;10-MAR-78 THE SC. SC5 CHANGES 

.-NEW DRIVE TYPt ID FOR R«05 

;1980 



.•COPYRIGHT (C) 1977,1981 
.•DIGITAL EQUIPMENT CORP. 
;MAVNARD. MA 01754 
.•AUTHOR(S): JIM LACEY/CMUCif HESS 
.•REVISED BV: MIKE LEAVITT 



11-APR-80, 27-MAR-81 



.•STORAGE FOR RMDS, RMERl . RMER2, AND RMMR2 ON AN ERROR 
;RMERRS - RMDS 
;RMERRS+2 = f^MERI 
;RMERRS*4 = RMER2 
;RMERRS*6 = RMMR2 



040016 000000 000000 000000 RMERRS: .WORD 0,0,0.0 



.-TABLE OF DRJVE ACTIVE INDICATORS (DRVACT=8 BYTES) 
;DfiVACT=0 IF DRIVE IS IDLE 
;DRVACT>0 IF DRIVE IS ACTIVE WITH A COMMAND 

;DRVACT<0 If DRIVE IS ACTIVE WITH AN ERPOR RECOVERY OPERATION 



000 
000 
000 
000 
000 
000 
000 
000 



DRVAfT: 



• BYTE 
.BYTE 
.8VTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



0 
0 
0 
0 
0 
0 
0 
0 



DRIVE 0 
DRIVE 1 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 



2 
5 
4 
5 
6 
7 



.•TABLE OF DRIVE STATUS INDICATORS (DRVSTA=8 BYTES) 

;DRVSTA=0 IF DRIVE IS OFFLINE OR NONfXSITENT 
;DRVSTA>0 IF DRIVE IS ONLINE 
;DRVSTA<0 IF DRIVE IS UNSAFE 



000 
000 
000 
OOO 
000 
000 
000 
000 



DRVS'^A: 



.BYTE 
.BYTE 
.BYTf 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



0 

0 
0 
0 
0 
0 
0 
0 



DRIVE 0 
DRIVE 1 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 



;^A8lE of drive TYPES (DRVTYP=8 BYTES) 

;f^RVTYP=0 IF DRIVE IS NONEXISTENT (DRVSTA^O, AL"iO' 
:DRVTYP=7 IF DRIVE IS RM05 •••••• 

iDRV^YP^S IF DRIVE IS RM02 •••••• 

;DR;TYP=4 if drive IS RM05 



'981 
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U 

54-1 



50 

5? 040046 
^.5 04C047 
040C.S0 
040051 
04005? 
040053 
040C54 
040055 

56 

'if 
58 
59 

60 

61 040056 
64 040057 
040060 
040061 
C40062 
040063 
040064 
040065 

65 
66 
67 
68 
69 

7C 040066 
7'. 040067 
040070 
040071 
04007? 
040075 
040074 
040075 



74 
75 
7t 
77 

78 
79 
80 
81 
8? 
85 
84 
85 
86 
87 
88 
89 
9C 
91 
9? 
95 
94 



04010? 



000 

ooc 
ooc 
ooc 

000 
000 

ooc 

000 



000 

coo 

000 
000 
000 
000 
000 
000 



000 
000 
000 
000 
000 
000 
000 
000 



040076 000000 



040100 cooooo 



000 



;DfiVTrP -1 JF NOT RM05/3/? 



DR. f VP: 



.8rTE 
.8VTF 
.8YTE 

.avTE 

.BYTE 
.8VTE 
.erTE 
.8rTE 



0 
0 
0 
0 

0 

c 



DPJVE 0 



DRJ/E 
DRIVE 
DRIVE 
DRIVE 
DRIVE 



DRIVE 6 
DRIVE 7 



:TA8lE of DUAL PORT 
;DP]NT=0 If 
;DPINT<0 IF 



IMTIALIZATION 
INTIALIZATION 
INITIALIZATION 



INDIfAT0R«i 

IS MOT ACTIVE ON 

IS IN PROGRESS 



THE 'JRIVE 



DPINT; 



.BYTE 
.QYTE 
.8VTE 
• BYTE 
.8YTE 
.8VTE 
.BYTE 
.8YTE 



0 
0 
0 
0 
0 
0 
0 
0 



DRIVE 0 
DRIVE 1 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 



.-TABLE OF PENDING DUAL PORT REQUESTS 

:DPROS=0 IF THAT A DUAL PORT REQUEST ]$ mqT PENDING FOR THAT DRIVE 
;DPRQS<0 IF THAT A DUAL PORT REQUEST IS PENDING FOR THAT DRIVE 



DPRQS; 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



0 
0 
0 
0 
0 
0 
0 
0 



ORIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 



.-TRANSFER yAIT FLAG (TRNSWT = 1 WORD) 

.■THIS IS A ONE WORD QUEUE. IT UILl CONTAIN THE ADDRESS OF 
;"DP8" OF THE I/O OPERATION. 

TRNSUT: .WORD 0 

.-SEARCH WAIT KEYS (SRCHWT = 1 WORD) 

.-THIS IS A ONE WORD QUEUE THAT WILL CONTAIN A KEY FOR EACH OF 
;THc DRIVES THAT ARE PERFORMING A SEARCH CO»WVND FOR THE I/O 
.•REQUEST THAT IS AT THE TOP OF THEIR REQUEST QUEUE. 
;EACH DRIVE IS ASSIGNED ONE BP. STARTING AT BITOO FOR DRIVE 0. 

SRCHWT: .WORD 0 

.-RM DRIVER ACTIVE FLAG (ACTDRV=1 BYTE) 
;ACTDRV=0 IF DRIVER IS INACTIVE 
;ACTDRV>0 IF DRIVER IS ACTIVE 

ACTDRV; .BYTE 0 



L 



Zfi*(UeO RMOS/^/^ PEPf EXER MACRO VO^.OO 

single/Dual pgr' rm/rm drive'? (REv 6.5) I98i 
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SfQ 0178 



95 
96 
97 
98 
99 
100 
101 
10? 
^05 
'04 
105 
106 
109 



no 

Ml 
112 
113 
M4 
'15 
116 
117 
118 
i19 
120 
121 
122 
125 
124 
125 
126 
127 
128 
129 
1?0 
153 



040103 



040104 
040105 
040106 
040107 
040110 
04C111 
040112 
040113 



154 
135 
156 
137 
138 
'39 
140 
141 
1-2 
145 



040120 
040122 
040124 
040126 
040130 
040132 
040134 
040136 



000 



000 
000 
000 
000 
000 
000 
000 
000 



040M4 000000 



040116 177777 



177777 
177777 
177777 
177777 
1 77777 
177777 
177777 
177777 



040140 177777 



.•SOFTWARE TIMER ROUTINE ACMVE FLAG 
.■ACTSTR=0 IF SOFTWARE TIMER 
.•ACTSTR>0 IF SOFTWARE TIMER 

ACTSTR: .8YrE 0 



(ACTSTR=1 BYTE) 
ROJTINE IS INACTIVE 
ROUTINE IS ACTIVE 



.•UNLOAD FLAG (ULDFLG=8 BYTES) 

;ULDFLG=0 IF NO UNLOAD COMMAND 
;ULDFLG>0 IF UNLOAD COMMAND IN PROGRESS 
;ULDFLG<0 IF UNLOAD COMMAND IN WAIT QUEUE 



ULDFLG: 



.BYTE 
• BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



0 

0 
0 
0 
0 
0 
0 
0 



DRIVE 
t>RIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 



.•SAVE REGISTERS FLAG (SAVEFG =1 WORD) 

.-SAVEFG <0 IF SAVE THE RH/RM RcGISTERS WHEN THE 
.•OPERATION IS COMPLETED AS PER (DP8*14). 
;SAVEFG=0 IF SAVE THE RH/RM REGISTERS. AS PER 
.•(DPe*14), AFTER AN ERROR. 

SAVEFG; .WORD 0 

.•SEEK FLAG (SEE<FG=1 WORD) 

;SEEKFG=0 IF WHEN THE DISK ADDRESS ISN'T IN THE WINDOW 
;F0R A DATA TRANSFER START A SEARCH COMMAND 
;SEEKFG<0 IF DATA TRANSFER WILL DO IMPLIED SEEKS. 
iDISREGARD THE WINDOW 

SEEKFG: .WORD -1 

.•TIMEOUT TABLE (rjM£R=8 WORDS) 

.-THIS TA8LE CONTAINS THE TIME ALLOWED FOR AN OPERATIOrj 



TIMER: 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



-1 
-1 

-1 
-1 
-1 
-1 
-1 
-1 



DRIVE 0 
DRIVE 1 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 



.•DATA TRANSFER UNDERWAY INDICATOR (DTUW=1 WORD) 

;DTUW<0 IF NO DATA TRANSFER UNDFRWAY , ^ 

;DTUW=*N (WHERE N=0 TO ") IMPLIES DATA TRANSFER UNDERUA* ON DRIVE N 



DTUW: 



■WORD -1 



.-ATTENTION BITS TABLE (ATA8IT=8 BYTES) , ^, 

^THIS TABLE CONTAINS THE CORRESPONDING BP TO EACH DRIVES 
.•ATTENTION BIT 



sINIGlE/DuAL PORi RH/RM DRIVER (REV * 
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144 
145 
U6 
U7 
'48 
K9 
150 
151 
1S2 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
165 
167 
168 
169 
170 
171 
172 



040142 
040143 
040144 
040145 
040146 
040147 
040150 
040151 



001 
002 
004 
010 
020 
040 
100 
200 



040152 000003 



040154 
C401 56 
040162 



1 76700 
000254 
000050 



0C0240 



040164 000O05 



199 
200 
201 
202 
203 
204 



AaiT: .QYTE 


1 


DRJVE 


0 


.8>TE 


2 


DRIVE 


1 


• bf TE 


4 


DRIVE 


2 


.erTE 


10 


DRIVE 


3 


.erTE 


20 


DRIVE 


4 


.BYTE 


40 


DRIVE 


5 


.erTE 


100 


•DRIVE 


6 


.8VTE 


200 


•DRIVE 


7 



.•NUMBER OF 'MASS8US CONTROL PARITY ERRORS" (MCPE) ALLOWED BEFORE 
.•CALLING IT FATAL (MCPEMXrl WORD) 

MCPE MX: .WORD 3 

.•STORAGE FOR RMADR (THE FIRST ADDRESS (776700) OF THE RH/RM) , 
;RMVEC (THE VECTOR ADDRESS (254)), AND RMVEC*2 (THE BR LEVEL (5)), 



R'^.'VDR 
RMVEC 
RHEX7 



.WORD 
.WORD 
.WORD 



1 76700 

254.5*32. 

50 



.•OFFSET TO RMBAE 



.•MAXIMUM SEARCH FOR I/O WINDOW IS 5 SECTORS (MXWNDW=1 'WORD) 
MXWNDW: .WORD 5 

.■DEFINITIONS OF THE RH/RM ADDRESS INDEXES 



173 


000000 


RMCS1 


= 0 


174 


000002 


RMWC 


= 2 


1^5 


000004 


RM8A 


r 4 


176 


000006 


RMDA 


= 6 


17/ 


000010 


RMCS2 


= 10 


178 


000012 


RMDS 


= 12 


179 


000014 


RMER1 


= 14 


180 


000016 


RMAS 


= 16 


'81 


000020 


RMLA 


= 20 


'82 


000022 


RMD8 


= 22 


183 


000024 


RMMR1 


- 24 


184 


000026 


RMDT 


= 26 


185 


000030 


RMSN 


= 30 


186 


000032 


RMOF 


32 


187 


000034 


RMDC 


= 34 


188 


000036 


RMHR 


= 36 


189 


000040 


RMMR2 


= 40 


190 


000042 


RMER2 


= 42 


191 


000044 


RMEC1 


= 44 


192 


000046 


RMEC2 


- 46 


194 


000050 


RI«AE 


= 50 


195 


000052 


RMCS3 


= 52 


197 








198 




.SBTTL 


RH/RM 



.•CONTROL AND STATUS REGISTER *1 (DRIVE REG. C) 

.•WORD COUNT REGISTER (NOT A DRIVE REG> 

.UNI8US ADDRESS REGISTER (NQt A DRIVE REG) 

.-DESIRED SECTOR/TRACK ADDRESS REGISTER (DRIVE REG. 

.•CONTROL AW) STATUS REGISTER #2 (NOT A DRIVE REG) 

.•DRIVE STATUS REGISTER (DRIVE REG 1) 

.ERROR REGISTER #1 (DRIVE REG. 2) 

.•ATTENTION SUMMARY PSEUDO REGISTER (DRIVE REG. 4) 

.LOOK AHEAD REGISTER (DRIVE REG. 7) 

.DATA BUFFER REGISTER (NOT A DRIVE REG.) 

.MAINTAINABILITY REGISTER (DRIVE REG. 3) 

.-DRIVE TYPE REGISTER (DRIVE REG. 6) 

.-SERIAL NUMBER REGISTER (DRIVE REG. 10) 

.-OFFSET REGISTER (DRIVE REG. 11) 

.DESIRED CYLINDER ADDRESS REGISTER (DRIVE REG. 12) 

.DUMMY ADDRESS REGISTER (DRIVE REG. 13) 

.•MAINTENANCE REGISTER #2 

.-ERROR REGISTER #2 (DRIVE REG. 15) 

.-ECC POSITION REGISTER (DRIVE REG. 16) 

;ECC PATTERN REGISTER (DRIVE REG. 17) 

;8US ADDRESS EXTENTION REGISTER 

.•CONTROL AND STATUS REGISTER #3 



THIS ROUTINE WILL DETERMINE WHICH RM DRIVES ARE 
AVAILABLE FOR TESTING AND SET THE DRVSTA INDICATOR 
TO THE PROPER STATE FOP EACH DRIVE. 
NOTE: THIS ROUTINE CALLS DRVINT 



"ZR»1U80 R«05/^/2 PERF EXfR "WCRO V04.00 

RH/R«<I DRIVER INITIALIZATION CODE 
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?05 
20t 
?07 
208 
209 
210 
211 

2^2 040166 
215 040170 

214 040174 

215 04o202 

216 040206 

217 040212 

218 040216 

219 040220 

220 040222 

221 040224 

222 040230 

223 040234 

224 C40236 

225 040240 

226 040244 

227 040250 

228 040254 

229 040260 

230 040264 

231 0<.0270 

232 C40274 

233 040300 

234 040306 

235 040310 
230 040314 

237 040316 

238 040320 

239 040324 

240 040326 

241 040332 

242 040334 

243 040340 

244 040344 

245 040350 

246 040352 

247 040356 

248 040362 

249 040364 

250 040366 

251 040370 

252 040374 

253 040376 
254 

255 
256 
257 
258 
259 
260 
26' 



104412 

013746 

012737 

004737 

012701 

012702 

005021 

020102 

103775 

012702 

012721 

020102 

101774 

00503/ 

005037 

005037 

005037 

013703 

012723 

013713 

013704 

012764 

005001 

004037 

000401 

000402 

105061 

005201 

042701 

001366 

012701 

005037 

105761 

001405 

004737 

105761 

001375 

005301 

100366 

012637 

104413 

000207 



177776 
000240 
045740 
040016 
040116 



C40140 
}77777 



040036 
040040 
040042 
040044 
040156 
042614 
040160 
040154 
000040 

040400 



040036 

177770 

000007 
177776 
040056 

045374 
040056 



177776 



CALL 



RETURN 



PC.RMiNIT 



NOTE: THE 'P' OR 'L* CLOCK MUST BE STARTED 



1 77776 



COOO^O 



RMINIT; 



1$: 



2%: 



3S: 



4t: 
5t: 



6S: 



7$: 
8t: 



SAVREG 

MOV 

MOV 

JSR 

MOV 

MOV 

CLR 

CMP 

BLO 

MOV 

MOV 

CMP 

BLOS 

CLR 

CLR 

CLR 

CLR 

MOV 

MOV 

MOV 

MOV 

MOV 

CLR 

JSP 

BR 

BR 

CLR8 

INC 

BIG 

BNfc 

MOV 

CLR 

TST8 

BEO 

JSR 

TST8 

BNE 

DEC 

BPL 

MOV 

RESREG 
RTS 



PS.-(SP) 

*<5«32.>,PS 

PCCLRQUE 

#RMERRS.R1 

«SEEKFG,R2 

(Rl)» 

R1.R2 

1$ 

*DTUW,R2 
*-l,(R1)* 
R1.R2 
2$ 

DRVSTA 

DRVSTA*2 

DRVSTA»4 

DRVSTA*6 

RMVEC,R3 

*JSR.(R3)* 

RMVEC*2,(R3) 

RnADR,R4 

»CLR.RMC52(R4) 

Rl 

RO.DRVINT 

4$ 

5$ 

DRVSTA(Rl) 
Rl 

4r*C7.Rl 
3$ 

#7J-(1 
PS 

DPJNT(RI) 
8$ 

PC. SET. IE 

DPINT(RI) 

7$ 

Rl 

6$ 

(SP)*,PS 
PC 



SAVE RO - R5 

SAVE THE PRESENT PROCFSSOR STATUS 
CHANGE THE PRIORITY TO 5 
CLEAR ALL REQUEST QUEUES 
FIRST ADDRESS TO BE CLEARED 
LAST ADDRESS TO BE CLEARED 
CLEAR 

ARE WE DONE? 
8R IF NO 
LAST ADDRESS 
INITIALIZE 
DONE? 

LOOP IF NO 

SET ALL DRIVES TO OFFLINE 



; SETUP THE RH/RM VECTOR 



FIRST ADDRESS OF RM/RM 
MASSaJS INIT 
START WITH DRIVE 0 
INJT THE DRI/E 

•DVA' NOT SET OR PARITY ERROR 
NORMAL RETURN 

SET DRIVE STATUS TO OFFLINE 

GO TO NEXT DRIVE 

MASK OUT UNUSED BITS 

BR IF MORE DRIVES TO GO 

START WJTH DRIVE 7 

CLEAR THE PROCESSOR STATUS 

WAITING FOR DRIVE TO SWITCH PORTS 

BR NOT WAITING 

SET INTERHUPT 

DRIVE SWITCHED PORTS ? 

8ft IF NOT 

GO TO THE NEXT DRIVE 

CHECK NEXT DRIVE 

RESTORE THE PROCESSOR STATUS 

RESTORE RO - R5 

BYE-BYF 



DRIVE INITILIZATION ROUTINE 

THIS ROUTINE DETERMINES IF A DRIVE EXIST AND IF IT IS 

AN RM05/3/2. IF IT IS. A "READ-IN PRESET" IS ISSUED AND FMT16 

IS SET TO A "1". THEN MOL. DPR. DRY. AND VV ARE CHECKED TO 

INSURE THEY ARE ALL ON A "1". AND DEPENDING ON THEIR STATE. 

Df^VSTA IS SET TO THE PROPER CONDITION. 

CALL 



CZRMueO RM05/3/2 PERF EXER MACRO V04.00 

Rh/RM DRIVER INITIALIZATION CODE 
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b£0 U^P' 



coc 












MOV 


cO J 












MOV 

• IW w 


cD*» 












jsr 


''O J 












RFTURNl 


cOO 












RETURN2 


cD ' 














c OO 


















ni ns4(^ 








MOV 




\JH\JH\JC 


1 nso6i 


040036 

W*< \J\J J\J 






CLR8 




(\LCiLC\f. 




040046 

W" WW"U 






CLRB 


?7? 


\JH\JH \ C 


10'i061 


040104 

W" W ' 






CLRB 


?7^ 

C' J 




010164 


000010 

WWWW ' W 






MOV 






1 1 ?764 


oOol 1 1 


000000 

W VW WW V 




M0V8 








01 0000 


000010 

WWWW 1 w 




BIT 


?7^ 




001403 








BEQ 


?77 




004737 


045374 






JSR 


?78 




000520 








BR 


?79 


















105061 


040036 

W" WW w 




1$: 


CLRB 


cO 1 


V** V** JC 


03P764 
00151? 


004 000 

WW~ WWW 


000000 

WW w www 




BIT 


cOc 










BEQ 




04046P 


004037 


044666 

W~~UUw 






JSR 


784 


040466 


OOO0P6 








RMDT 


CO J 


040470 


040710 








5$ 




04047? 


01P605 








MOV 




040474 


1 1 ?761 


000004 

W WW w W^ 


040046 

W~ W W~ w 




M0V6 


P88 


04050? 


0??705 


020024 






CMP 


?89 


040506 


001431 








BEQ 


C TV 


040510 


0?2705 


024024 






CW* 


C7 1 


040S14 


001426 








BEQ 




040S16 


1 1P761 


000005 

wwwww ^ 


040046 

W~ WW^ w 




MOVB 


c ~ J 


0405?4 


0??705 


0?00?5 

W^ wwc ^ 






CMP 




040530 


001 4?0 

WW 1 "few 








BEQ 


t T J 


04053? 


0??705 

WC C r W^ 


0?4025 






CMP 




040536 


001415 

WW 1 1 ^ 








BEQ 


P97 


040540 


112761 


000007 

wwwww • 


040046 

W~ W W~ w 




M0V8 


?98 


040546 


022705 


020027 






CMP 


C 7 7 


04055? 


001407 

WW 1 ^ w • 








BEQ 




040554 


0??705 

WC C ' w ^ 


024027 






CMP 




040560 


001 404 

WW 1 ~ w^ 








BEQ 




04056? 


1 1 2761 


1 77777 


040046 




MOVB 


-A/ J 


040570 


000446 

WWW" ~ w 








BR 


304 














305 


04057? 


012746 


000121 

WWW 1 < 




2$: 


MOV 


^06 


040576 


004037 

WW~ W-«/ • 


045042 






JSR 


307 


04060? 


000000 

www www 








RMCS1 
5S 


308 


040604 


040710 








309 


040606 


01 2746 


010000 

w I www 






MOV 


310 


040612 


004037 


045042 






JSR 


311 


040616 


000032 

WWW W J w 








RMOF 


31 P 


040620 

W"t WC V 


040710 

W^ W ' IV 








5S 


313 


040622 


004037 


044666 






JSR 


314 


040626 


000012 








RMDS 


315 


040630 


040710 








5$ 


316 


040632 


012605 








MOV 


317 


040634 


100015 








BPL 


318 


C40656 


116164 


040142 


000016 




MOVB 



/TDRVNUM.RI 

RMADR.R4 

RO.DRVINT 



R5,-(SP) 

DRVSTA(RI) 

DRVTrP(RI) 

ULDFLG(RI) 

R1.RMCS2(R4) 

#111.RMCSHR'») 

#8IT12,RMCS2(R4) 

IS 

PC. SET. IE 
4S 

DRVSTA(RI) 

*8IT11,RMCS1{R4) 

4S 

RO.RD.RM 



(SP)*,R5 
*4,DRVTYP(R1> 
#20024, R5 
2S 

#24024, R5 
2S 

#5.DRVTVP(R1) 
#20025, R5 
2S 

#24025. R5 
2S 

#74DRVTVP(R1) 
#20027. R5 
2S 

#24027. R5 
2$ 

#-1,DRVTYP(R1) 
4$ 

#121 .-(SP) 
RO.URT.RM 



DRIVE NUMBER TO R1 

UNIBUS ADDRESS OF RH/RM (RMCSD 

CALLED BY A JSR 

ERROR OCCURRED (PARITY) 

NORMAL RETURN 



SAVE R5 

START DRIVE STATUS AS OFFLINE 
CLEAR THE DRIVE TYPE INDICATOR 
CLEAR THE UNLOAD FLAG 
SELECT A DRIVE 

DO A DRIVE CLEAR COMMAND (ft SEIZE DRIVE) 
.'NONEXISTENT DRIVE? 

NO 

GO SET "IE" WITHOUT A "TRE" 
LEAVE THIS ROUTINE 

SET DRIVE STATUS TO OFFLINE 

;SEE IF DRIVE AVAILABLE 
BR IF DRIVE NOT AVAILABLE 
READ THE DRIVE TYPE REG. 

ERROR RETIWN ADDRESS 

PUT DRIVE TYPE IN R5 

SET RM03 INDICATOR 

SINGLE PORT RM03 ? 

BR IF YES 

DUAL PORT RM03 ? 

BR IF YES 

SET RM02 INDICATOR 

SINGLE PORT RM02 ? 

BR IF SO 

DUAL PORT RM02 ? 

BR IF SO 

SET RM05 INDICATOR 
SINGLE PORT RM05 ? 
BR IF YES 
DUAL PORT RM05 ? 
BR If YES 

SET INDICATOR TO "OTHER* 

EXIT 

DO A 'IIEAD-IN PRESET" 



#8IT12.-(SP) 
RO.WRT.RM 



RO.RD.RM 



;SET FMT16=1 



:RFAD RMDS 



(SP)*,R5 ;AND SAVE IT IN R5 

3$ '8R IF ATA=0 

ATA8IMR1).RMAS{R4) ;CLEAR ATTENTION BIT 



I'ZRMUBO RM05/5/2 PERF EXER 
RH/RM DRIVER INITIALIZATION CODE 



WACRO V04.00 



519 0A06AA 
120 0A0650 

321 0A0652 

322 0A065A 

323 0A0656 
32A 0A0660 
525 040666 
326 

327 0A0670 

328 0A0672 

329 0A0676 

330 0A0700 

331 0A0706 

332 0A0710 

333 040712 
33A 

335 
336 
337 
338 
339 
3A0 
541 
542 
543 
544 

545 040714 

546 040720 
347 040726 
548 040734 
349 040736 
550 040740 

351 040744 

352 040746 
355 040752 

554 040756 

555 040760 

556 040764 

557 040766 

558 040772 

559 040774 
360 041000 

561 041002 

562 041006 
565 041010 

564 041014 

565 041016 

566 041022 

567 041026 
368 041050 
5^9 041036 

370 041040 

371 041046 
572 041052 
373 041054 
3^4 041060 
375 041062 



004037 
000014 
040710 
006126 
100004 
112761 
000407 

005105 
042705 
001005 
112761 
005720 
012605 
000200 



015746 

015757 

112737 

104412 

011002 

005062 

111201 

01 3704 

105761 

003014 

105761 

001036 

105761 

001042 

004037 

000454 

105761 

003445 

105761 

001051 

010164 

004057 

000460 

122762 

001003 

112761 

105761 

001045 

004757 

000440 

012762 



044666 



1 77777 040056 



167077 

000001 040056 



5$: 



4S: 
5$: 



RE QUE 
CALL 



}77776 

040160 177776 
000001 040102 



000016 

040154 
040056 

040104 

040056 

040400 

040036 

040066 

000010 
046056 

000105 000002 

^ 77777 040104 
040026 



RM05: 



1$: 



2$: 



041206 

120000 000016 3$: 



N 14 
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ceo 



JSR RO.RD.RM ;fIND OUT WHV ATA 1 

RMERI 

5$ 

90L (SP)* ;IS IT UNSAFE'' 

BPL 3$ ;8R If NOT 

M0V8 #-1 .DRVSTA(RI) ;SET UNSAFE INDICATOR 

BR 4$ .-EXIT 

COM R5 .'CHECK MOL. DPR, DRY, AND VV 

BIC *»C<8IT12:BIT08!8IT07!8IT06>.R5 

BNE 4$ ;8R IF MOL, DPR, DRY, OR VV IS ClEAP 

M0V8 *1.DRVSTA(R1) ;SET DRIVE STATUS TO ONLINE 

TST (RO)* .-STEP OVER THE ERROR RETURN 

MOV (SP)*,R5 ; RES TORE R5 

RTS RO .-EXIT 

PRE-PROCESSOR-HANDLES SU8SYSTFM REQUEST 



JSR R0.RM05 ;CALL THE RM05 DRIVER 

PNTADR .-ADDRESS OF POINTER OF DRIVES PARAMETER BLOCK 

RETURNl ;RETURN HERE IF QUEUE JS FULL 

RETURN? .-RETURN HERE IF REQUEST IS IN QUEUE OR THERE 

:IS AN ERROR CONDITION 

MOV PS.-<SP) .-SAVE THE CALLING STATUS 

MOV RMVEC+2.PS ;D0N'T ALLOW ANY RM INTERRUPTS 

Move #1.ACTDRV ;SET "ACTIVE DRIVER" FLAG 

SAVREG .SAVE RO - R5 

MOV {R0).R2 .-PICKUP THE DRIVE PARAMETER BLOCK POINTER 

CLR 16<R2) .CLEAR THE STATUS/ERROR INDICATOR 

M0V8 (R2).R1 .-PICKUP THE DRIVE NL^BER 

MOV RMADR.R4 ;UNI8US ADDRESS OF RMCSl 

TSTB ORVSTA(Rl) ; CHECK DRIVES STATUS 

PGT 1$ ;8R IF ONLINE 

TST8 ULDFLG(Rl) .-UNLOAD COMMAND IN QUEUE'' 

BNE 3$ ;8R IF YES 

TST8 DPINTCRl) ;T9VING TO INIT THE DRIVE 

BNE 5$ ;8R IF YES 

JSR RO.DRt/I^'T ;G0 INIT. THE DRIVE 

BR 4$ .-ERROR RETURN 

TST8 DRVSTACRl) ;IS DRIVE STATUS ONLINF? 

BLE 6$ ;8R IF NOT 

TST8 DPRQSCRl) .-OUTSTANDING PORT REQUEST FOR iHE DRIVE ? 

BNE 5$ ;8R IF YES 

MOV R1.RMCS2(R4) .-SELECT THE DRIVE 

JSR RO.DRVQUE ;PUT THIS REQUEST IN QUEUE 

BR 9$ .-QUEUE IS FULL 

CMP8 *105.2(R2) ;IS THIS REQ. FOR AN UNLOAD? 

BNE 2$ ;8R IF NO 

M0V8 #-l,ULDFLG(Rl) ; SET THE 'UNLOAD IN QUEUE ' FLAG 

TST8 DRVACT(Rl) ;IS THIS DRIVE ACTIVE? 

BNE 8$ :8R IF YES 

JSR PC. OPT .-CALL THE OPTIMIZER 

BR 8$ 

MCV #8IT15.B1T13.16(R2) ;SET THE 'UNLOAD IN QUEuE" ERROR f lAG 



7»"^UB0 RM05/^/2 »ERF ExE« MA 
5tH/RM DI»I.E<^ INITIALIZATION CODE 
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B 

PAGE 



15 

54-7 



SEO 0183 



^76 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

337 

388 

389 

590 

3^1 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

40/ 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

436 

437 

438 

459 

440 



041070 
041072 
041076 
C41100 
041104 
041106 
041112 
041114 
041120 
041122 
041126 
041130 
041136 
041142 
041' 44 
041152 
041154 
041162 
041164 
C41166 
041170 
041172 
041174 
041200 
041204 



041206 
0412 lO 
041214 
041222 
041226 
041232 
041234 
041236 
041242 
041 250 
041256 
041260 
041264 
041266 
041272 
041300 
041304 
041306 
0^.1314 
041316 
041316 
041324 
041326 
041332 
04 '334 



000434 
004737 
000431 
004037 
000431 
032714 
0G1023 
004737 
000420 
105761 
002412 
012762 
105761 
001007 
012762 
000403 
012762 
104413 
0C5720 
000401 
104413 
005720 
105037 
CI 2637 
C00200 



104412 
013746 
146137 
105061 
004737 
005702 
001466 
010164 
012764 
032764 
001442 
105761 
003014 
004737 
012762 
105761 
100047 
012762 
000443 

122762 
002403 
004737 
000434 
005 737 



C42264 

046036 

000100 

045374 

040036 

140000 
040046 

100002 

110000 



040102 
177776 



'.7777b 
040142 
040066 
046112 



000010 
0001 1 1 
004000 

040036 

046134 

140000 
040036 

110000 



000150 
041650 
040140 



<.S: 

5$: 



6t: 



000016 

000016 
000016 



71: 
8t: 



9$: 
'0$: 



BR 

jSR 

BR 

JSR 

BR 

BIT 

BNE 

JSR 

BR 

TST8 

BLT 

MOV 

-ST3 

BNE 

MOV 

BR 

MOV 

RESREG 

7ST 

BR 

RESREG 

TST 

CLR8 

MOV 

RTS 



8S 

PC. CP 
8$ 

RO.DRVQUE 
9$ 

«eiT06,(R4) 
8$ 

PC. SET. IE 
8$ 

DRVSTA(RI) 
7$ 

#8IT15.BITU. 

DRVTYP(RI) 

8S 

#81115. BPOI. 
8S 

#81115. BIT12. 

(RO)* 
10$ 

(RO)* 
ACTDRV 
(SP)*.PS 
RO 



.•EXIT 

:G0 HANDLE 



THE PARI TV ERROR 



PUT REQUEST IN OUEUE 
QUEUE IS FULL 
IE BIT SET ? 
YES 

SET THE INTERRUPT 
RE TURN 

SEE IF DRIVE OFFLINE OR UNSAFE 
8R IF UNS/FE 
16(R2) .-SET OFFLINE ERROR INDICATOR 
.-SEE IF OFFLINE OR NONEXISTENT 
;8R IF OFFLINE 
16(R2) .-REPORT DRIVE NONEXISTENT 

;G0 TO EXIT 
16(R2) .'DRIVE IS UNSAFE 
RESTORE RO - R5 
SETUP FOR NORMAL RETURN 
FINISH LIP. THEN EXIT 
RESTORE RO - R5 
CORRECT THE RETURN ADDRESS 
CLEAR "ACTIVE DRIVER" FLAG 
RETURN TO USER LEVEL 

RETURN TO CALLER 



OPTIMI/ER-CALLED FOR A PARTICULAR DRIVE 



CALL 



OPT: 



040100 



000000 
000000 



000016 
000016 
000002 



1$: 



2t: 



3S: 



MOV 
JSR 

SAVREG 

MOV 

BiCS 

CLR8 

JSR 

TST 

BEQ 

MOV 

WV 

BIT 

BEQ 

TST8 

BGT 

JSR 

MOV 

TST8 

BPL 

MOV 

BR 

CMP8 

BLT 

JSR 

BR 

TST 



#DRVNUM.R1 
PC. OPT 



.•DRIVE NUMBER TO R1 
.•SETUP A COMMAND 



'SAVE RO ~ R5 
PS.-(SP) -SAVE PROC. STATUS 

ATABIT(R1).SRCHWT ;CLEAR LA SEACH FLAG 



DPRQS(Rl) 
PC.6ETREQ 
R2 
7f 

R1,RMCS2(R4) 
#111.R«CS1(R4) 
#8ini.R«CSl<R4) 
5$ 

DRVSTA(R1} 
2S 

PC.POPQUE 

#8IT15:81T14.16(R2) 
ORVSTA(Rl) 
8S 

#8IT15!BlT12.16(fi2) 



RESET THE PORT REG FLAG •*•• 
GET "DPS" POINTER OF REQUEST 
IS THERE A REQUEST IN OUEUE? 
N0-H3R TO EXIT 

LOAD THE DRIVE ADDRESS 

CLEAR THE DRIVE 

;DVA SET ? 
TO PORT REQUEST .IF NOT 
IS DRIVE ONLINE? 
YES 

NO— REMOVE REQUEST FROM QUEUE 

;SET OFFLINE STATUS/ERROR INDICATOR 
;IS DRIVE UNSAFE ? 
;8R TO EXIT IF NOT 

;SET UNSAFE STATUS/ERROR INDICATOR 



8$ .'BR TO EXIT 

#150. 2(R?) ;IS THE REQUEST FOR I/O? 

3t ;rES 

PC.CI4 ;CALL THE COMMAND INITIATOR 

8S *BR TO EXIT 

DTUU ;DATA TRANSFER UNDERWAY"' 



./RMUBO RW05/3/2 PERF EXER HACRO VOA.OO A-APR-S" 

PH/RM DRI;ER INITIALIZATION CODE 







UvcWv 












HHc 














TST 






1 00007 










API 


LLL 




004777 


041474 












041 '^'54 


0004P7 














VH 1 jjO 


0047 77 


041 '54? 




4$: 


]^R 




04 1 ^6? 


0O04?0 










BR 


•♦SO 




1 1 ?761 


1 77777 

I f f f f f 


0400#i6 

woo 


5$: 


I^O vu 




041 77? 


010107 










MOV 

'HO ¥ 




O^l 774 


OOA707 










A^L 


H J 1 


041 77^^ 


01 ?7'»7 




0401 ?0 






MOV 

' IO» 




041404 


000^.0? 










BR 


H J J 


041406 


004737 


042264 

V^* t CO"t 




6*: 


jsr 




04 1 4 1 P 


032714 


OOC/lOO 

V W 1 W 




7$: 


Bi T 




04 1 4 1 6 

J"t 1 "t 1 w 


001002 










BNE 




0414^0 

\J*^ 1 ■tr v 


004737 


045374 








JSR 




'^Z. 1 4 ■'4 




177776 

1 ' r f O 




8$: 


MOV 




0414^0 


10441 3 










RESREG 




04143? 

VH ' JC 


000P07 










RTS 


















HO 1 












COMMAND INITJi 






























CALL 


















MOV 
















MOV 
















JSR 


•♦Of 
















4^ 
■too 
















■•o^ 
































471 


















041434 


004737 


0461 34 




CIl: 


JSR 


475 


041440 


010237 


040076 








MOV 


474 


041444 


010203 










MOV 


475 


041446 

W~ 1 ~~o 


01 3704 


0401 54 








MOV 


476 


04145? 


010164 

V i V 1 o~ 


0000 10 

WW 1 V 








MOV 


477 


041456 


062703 


000004 

wv W^ 








ADD 


478 


041462 


062704 


000002 

W WV b 








ADD 


479 


041466 

v*t 1 "too 


012324 










MOV 


•♦ov 


041470 


012324 










MOV 


481 

•to 1 


041472 

1 ■t r C 


012346 










MOV 


482 


041474 


004037 


045042 








JSR 


483 


041500 
041502 


000006 










RMDA 


484 


042264 










CI7 


485 

•tO-/ 


041504 


012546 










MOV 


•too 


041 506 

^/■t 1 J^J^J 


004037 


045042 








JSR 


487 

■to » 


041512 

V"t 1 J 1 c 


000034 










RMDC 


488 
•too 


041514 


042264 

co~ 










CJ7 


489 


041516 


016246 


000002 

WW wt 








MOV 


490 

■t TV 


041522 


004037 


045042 








JSR 


491 

■t 7 \ 


041 526 


000000 

www 










RMCS1 


492 


041530 


042264 










CI7 


493 


041532 


010137 


040140 








MOV 


494 


041536 


000137 


042226 








JMP 


495 
















496 


041542 


01 3704 


040154 






:I3: 


MOV 


497 


041546 


010164 


000010 








MQV 



C 15 
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SfO 0184 



4S 

SEFKFG 
4$ 

PC.CI1 
8S 

PC.CI3 
8S 

*-1.DPRQS(Rl) 

R1.R3 

R3 

*1 5000., TIMER 
7$ 

PC.CI7 

*8IT06.<R4) 

8$ 

PC. SET. IE 
(SP)*.PS 

PC 



VES— GO START A SEARCH 
DO IMPLIED SEErS? 
NO, DO A SEARCH 
START A DATA TRANSFER 

START A SEARCH 
GO TO THE EXIT 
SET PORT REQUEST INDICATOR 
SET UP TO ADDRESS WORDS 
.CONVERT TO WORD INDEX 
(R3) ;START 15. SECOND TIMER 

EXIT 

PROCESS THE PARITY ERROR 
SEE IF 'IE* ALREADY SET 
8R IF SET 

SET "IE" WITHOUT A "TRE" 
RESTORE PROC. STATUS 
RESTORE RO - R5 



VTCR 



*DRVNUM,R1 
#DP8,R2 
PC. CI? 



PC.POPOUE 

R2,TRNSWT 

R2.R3 

RMADR.R4 

R1.RHCS2(R4) 

#4.R3 

#2.R4 

{R3)+.(R4)* 
(R3)*.(R4>» 
(R3)+.-(SP) 
RO.URT.RM 



(R3)>.-(SP) 
RO.WRT.RM 



DRIVE N013ER 
ADDRESS OF DP8 
CI?= CI1.CI3. OR CI4 
WHERE : 

CI1=DATA TRANSFER 

CI3=SEARCH REQUESTED BY DATA Xf£R 

CI4=N0T DATA TRANSFER 

REMOVE REQUEST FROM "DRIVES WAIT" QU»^Ut 

PUT REG. IN TRANSFER WAIT QUEUE 

DP8 ADDRESS TO R3 

RMCSl ADDRESS 

SELECT DRIVE 

DESIRED WORD COUNT 

RMWC ADDRESS 

LOAD WORD COUNT 

LOAD BUFFER ADDRESS 

LOAD SECTOR AND TRACK 

CALL THE LOAD (WRITE) ROUTINE 

INDEX OF REGISTER TO LOAD 

ERROR RETURN ADDRESS 

LOAD CYLINDER ADDRESS 



RO.WRT.RM 



;LOAD "COMMAND+GO". "A176A16". AND '^SFL" 



Rl.DTUW 

CI5 

RMADR.R4 
R1.RMCS2(R4) 



.-SET "DATA TRANSFER UNDERWAY' 



; RMCSl ADDRESS 
.•SELECT DRIVE 



Pt^'RM DRWER INI'IALIZAHON fODE 



•♦TO I jjc 


V 1 OcSO 


WV/v C 








/QQ 0^1 CC^ 




U*f 3vHc 








Uv/VA/ J** 




















ri7 


JVC V** 1 !yOO 


1 i62n^ 


nonnin 








J vj*t 1 3 ' c 










SIJR 




nn?ftn? 










ens n^iAfwi 




nnnn^n 






ADD 










1t- 


< IV' » 


J\J f V^H 1 OvV 


1 1 6266 


nnnni i 


000001 




I IW vu 




nnin^7 








ISR 




nnnnoA 








RMDA 


Sin n^ift?? 


01,?? fit* 








CI7 




012746 


0001 31 






MOV 












1 CD 


nil 


nOnn(in 

VvWVv/ 








RMCS1 


sli n^i^^^^ 


n42264 








CI7 


SIS nii<%iO 


1 561 37 


04014? 


C40100 

\#~W ' vw 








000567 








BR 


51 7 












Sift 041650 


01 3704 


040154 




CI4 • 


MOV 

' iW T 




010164 


000010 






MOV 

' iW » 


s?n n^i^n 


1 16203 


00000? 

W Wwf 






M0V8 


5P1 0416S4 




000131 






CMPi3 


5?? 041670 


001007 








BNE 


5?? 041672 


016246 


000010 






MOV 


5P4 041676 


004037 


045042 






JSR 


SPS 04170? 


000006 








RMDA 


5?6 041704 


042264 








CI7 


S?7 041706 


000403 








BR 


s?ft nil 71 n 


122703 


000105 

WW 1 v/ v 




1$: 


CMPB 


SPV n41 714 


001007 








BNE 


550 041716 


016246 


000012 

WWW ' t- 




2$: 


MOV 


531 041722 


004037 


045042 






JSR 


53? 041 7?6 

J .J^ W*v 1 r CW 


000034 








Rf<H>C 


S33 041730 


04??64 








CI7 


534 04173? 


000546 








BR 


535 041734 


122703 


0001 1 5 




5$: 


CMPB 


537 041742 


00101 3 








BNE 


004037 


044666 

W~~ w WW 






JSR 


538 041746 


00003? 








RWF 


5^9 041750 


04??64 








CI7 


540 041752 


1 16~16 


000001 

VWWWW 1 






M0V8 


541 041756 


004037 


04S042 

W~ ' W" c. 






JSR 


542 041762 


000032 








RMOF 


543 041764 


042264 








CI7 


544 041766 


000530 








BR 


545 041770 


122705 


000107 

www • w • 




4$: 


CMP8 


546 041774 


001525 








BEO 


547 041776 


122705 


0001 1 7 

WWW I 1 » 






CMPB 


S<,8 042002 


00152? 








BEO 


549 042004 


122705 


000105 






CMP8 


550 042010 


001016 








BNE 


551 042012 


11276^ 


000001 


040026 




M0V8 


552 042020 


105061 


040056 






CLR8 


553 042024 


112761 


000001 


040*04 




M0V8 


554 C42032 


010546 








MOV 
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12(R2>.-(SP) 
RO.URT.RM 



.•DESIRED CYLINDER ADDRESS 



10(R2).R5 
MXWNDU.R5 
IS 

*52..R5 

R5.-(SP) 

1KR2),1(SP) 

RO.WRT.RM 



.•PICKUP SECTOR ADDRESS 

;8ACKUP Br MAX. SEARCH FOR I/O WINDOW 



COMBINE THE ADJUSTED SECTOR WITH 

THE DESIRED TRACK 

LOAD DESIRED TRACK t SECTOR 



*151,-(SP) 
RO.WRT.RM 



.•START A SEARCH 



ATA8IT(R1).SRCHWT 
CIS 

RnADR.R4 
R1.RMCS2(R4) 
2(R2).R3 
#131. R3 
1$ 

10(ft2).-{SP) 
RO.WRT.RM 



;S£T "SEARCH WAIT" KEV 



RMCS1 ADDRESS 
SELECT DRIVE 

PICKUP THE REQUESTED COMMAND 
IS IT A SEARCH COMMAND? 
8R IF fgO 

LOAD DESIRED TRACK ft SECTOR 



2$ 

#105. R5 
5$ 

12(ft2).-(SP) 
RO.WRT.RM 



GO LOAD CYLINDER 

IS IT A SEEK COMMAND 

8R If NO 

LOAD DESIRED CYLINDER 



CI6 

#115. R5 
4$ 

RO.RD.RM 



1(R2).(SP) 
RO.WRT.RM 



IS IT AN '^OFFSET" COMMAND? 
8R IF NO 

MERGE THE OFFSET VALUE INTO RMOF 
BUT DON'T CHANGE THE UPPER 

;8YTE WHEN LOADING THE 
.•REGISTER (RMOF) 



CI6 

#107.R5 
CI6 

#117. R3 

CI6 

#103. R3 
5$ 

#1.DRVACT(R1) 
DRVSTA(RI) 
#1 .ULDFLG(RI) 
R5.-(SP) 



START THE COMMAND 
IT A "RECALIBRATE" COMMAND? 
YES 

A RETURN TO CENTER? 
YES 

AN 'UNLOAD" COMMAND? 
NO 



CO 
IS 
BR 
IS 
8R 
IS 
8R 

SET THE DRIVE ACTIVE INDICATOR 
PUT DRIVE STATUS TO OFFLINE 
SET 'UNLOAD IN PROGRESS" FLAG 
START THE 'UNLOAD" COMMAND 



IF 
IT 
IF 
IT 
IF 



"ZSMUBO RM05/5/2 PERF EXER flACRO vOA.OO 4-APR-81 

rh/r(i driver initialization code 







nnAn?7 


nA^nA? 






J in 


3 30 




nnnnnn 

UUUwU 








QMr ^l 


33 1 




nA55AA 








f 1 7 


3 JO 




nnnpn7 








RT^ 

n 1 i 


^^Q 

337 






nnm A ? 

UUv 1 M J 




St; • 

J » . 




30U 


UmcU jc 


nm ni a 








Dnic 


JO 1 


U*«cw j*« 


nnAn77 


HA A AAA 








30C 




nnnn7? 








r>f IV' 


jOj 




UmccC* 








Kit 


jO*« 


OA OCti^L 


1 1 APAA 


nnnnm 






1 lU vo 


30 J 




nnAn'?^ 


OASnAP 

\/M JV/MC 








300 




nnn<T?p 










JD' 




HAPPA^ 
VJ**CCOH 








f 1 7 


Cab 

3O0 


0A2102 


nnnA ■? a 








RR 


JOT 






nnni A1 










nA5i 1 n 


nnin?x 








RMP 


J» I 


OA 31 1 5 


w 1 Oc 


nnnnnA 

UVwvvO 




7$ • 


















3 f J 




1 1 A?X7 

1 I DC .3 ' 


onnnin 

VVWV 1 V. 


0A?1 XA 

vMC 1 JM 




MDVR 


3 ' M 


1 1 Oc U3 


VVVV 1 1 






1 IV Vu 


^7^ 




nnAn'^7 


OA A AAA 
UmmOOO 




• 

o* • 


I^R 


3 ' D 




nnnnnn 










^77 




nA??AA 
UMtcDS 

m?A?'^ 

U 1 cOc^ 








f 17 


J ' o 


nA3i An 








MOV 


^7Q 


nA?i A? 




DAPI ^A 

vM C F JM 








JOW 


nA?1 AA 


nni AT A 

\J\J 'MIS 








RPQ 


30 1 


V*«C 1 Jv 


nAP7?7 

UOc ' J' 


v\. vvvc 


0A?1 ^A 

VM C f JM 




ADD 


JOt 


nAPi SA 

\JHC 1 3D 


\J\J\Jf OM 








on 


JOJ 






V^'V 1 M J 








JOm 


nA51 AA 


nm AOS 

VV 1 MU J 








RFQ 


JOJ 


nA51 AA 


nmxAA 






1 1t- 

114'- 


MOV 


joo 


nA?i 7n 


nnAn?7 


VH 3 VH C 






j~ 


SR7 

JO' 














300 


nA5i 7A 


OAPPAu 








f 17 


JO~ 


fii??no 


0047^7 


OAAI ^4 




1 C ^ • 


JSP 


J7V 




U3C ' Dc 


000700 


onooi A 




RK 


•SOI 
J" 1 


i1A??1 ? 




OZiOl 1^ 










n^??i A 

\J*f C C I *3 


1 nnnn? 

I V\/VJ\Jc 








RPI 


3 T J 


\JHCCC\J 


nnA7^7 


J\J 






J^P 


J TM 


\JHCC c*^ 


nnn?n7 








RT<; 


J~ J 














J7v3 




noAxni 

VJV/D JV F 






ri5- 


ASI 




Jv 


ni ?7Ai 

V 1 C ' O 1 


VC JMCV 








j~o 




noAPOi 

vvOcV/ • 








A^R 








vvvvv \ 






MOVR 


ADO 

Dvv 




WvC V f 








RTS 


















yj'^cc JV 








f 16- 


MOV 


\J\JJ 


fK??S2 

wMcC JC 














VMCC JU 












ADS 












CI7 


606 


OA 2262 


000761 








BR 


607 














608 


0A226A 


03276A 


010000 


000010 


CI7: 


BIT 


612 


0^2272 


005702 






1$: 


TST 


616 


0A227A 


001001 








BNE 


617 


0A2276 


00020^ 








RTS 
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RO.U/RT.RM 



SFQ 0186 



PC 

#143, R3 
6S 

RO.RD.RM 



RE 1 URN TO USER 

IS IT A "SET FORMAT" COMMAND? 
8R IF NO 

READ THE OFFSET REGISTER 



1('^2)J(SP) ;C0M8INE "fMI 16","ECI", AND "HCI" 
RO.WRT.RM .-LOAD "FMT16", 'tCI". AND/OR 'KI". 



'2% 

#141. R3 
10$ 

6(R2).R3 

10(R2).9$ 
11(R2).R5 
RO.RD.RM 



(SP)+. (R3)» 

9$.R5 

12$ 

#2.9$ 

8$ 

#145. R3 
12$ 

R3,-(SP) 
RO.WRT.RM 



IS IT A "GET REGISTER" COMMAND? 
8R IF NO 

POINTS TO 1ST ADDRESS OF WHERE 

TO PUT THE REGiSTER(S) 

INIT. THE INDEX FOR THE FIRST REG. 

INDEX OF LAST REG. TO MOVE 

READ RH/RM REGISTER 

INDEX OF REG. TO READ 

GET THE CONTENTS OF RH/RM RCG. 

LAST REG. BEEN READ? 

GET OUT IF YES 

INCREASE THE INDEX BY 2 

LOOP—MORE TO READ 

IS IT A "SELECT DRIVE" COMMAND? 

8R IF YES 

LOAD THE COMMAND 



REMOVE REQ. FROM QUEUE 
SET THE "DONE" BIT 
SAVE THE RH/RM REGISTERS? 
8R IF NO 

YES— GO SAVE THE REGISTERS 
RETURN TO USER 



PC.POPQUE 
#8IT07,16(R2) 
SAVEFG 
13$ 

PC.SVRH70 

PC 

R1 

#10000.,TIMER(R1) 

R1 

#1,DRVACT(R1) ;SET THE DRIVE ACTIVE 
PC ; RE TURN TO THE USER 



.-START 10. SECOND TIMER 



R3,-(SP) 
RO.WRT.RM 



;LOAD THE COMMAND 



CIS 

#8IT12.RMCS2(R4) 
R2 
2$ 

p: 



.-DRIVE NON-EXISTENT 
ANYTHING IN QUEUE ? 
8R IF QUEUE IS THERE 
OTHERWISE EXIT 



JE*MUBO RM05/^/2 PERF EXER I^ACRO V04.00 4-APR-81 

'^'-^RM DRIVER INITIALIZATION CODE 



O 1 o 




01 P76P 


1 04000 


000016 




MOV 


Oct 
















0^.5X06 


ni P746 


0001 1 1 




MOV 


OCH 




004037 


04504? 






jsr 


Oc ^ 


n4P3i6 


oonooo 








RMCS1 


OcD 




04 P 364 








CIS 

^ J w 




n^p^pp 


004737 


04601 6 




IS- 


JSR 


sJCO 


n^p^PA 










CLRS 


DC ' 


n^p^^p 










CLR8 




04P336 


105061 


040026 






CLR8 




w** C J** C 


0P0237 

\JC \JC .Jf 


040076 






CMP 






001005 








BNE 






005037 

\J\J J\J—f 1 


040076 






CLR 






012737 


M7777 


040140 




MOV 






000207 






2$: 


RTS 




















104412 






C 18: 


SAVREG 




04 P 366 


005001 








CLR 




04P370 


005003 








CLR 




04257? 


105761 


040026 




1S: 


TST8 




04?'?76 
^ *t c J ■ yj 


001003 








BNE 




04P400 


105761 


040066 






TST8 




042404 


001443 








BEC 




042406 


01 3702 


040076 




2$: 


P10V 




042412 


020137 


040140 






CMP 




042416 


001402 








BEQ 




042420 


004737 


04611 2 






JSR 


651 


042424 


005702 






3$: 


TST 




042426 


001413 








BEO 




042430 

V~ t.** _Jv/ 


032764 


01 0000 


00001 0 

WW 1 w 




BIT 




042436 


001404 








BEO 




042440 


012762 


100002 


000016 

WW • w 




nov 


656 


042446 


000403 








BR 


657 


042450 


012762 


1 02000 


000016 


4S: 


MOV 


661 


042456 


012763 


y77777 


0401 20 


5S: 


nov 


662 


042464 


105061 


040026 






CLR8 


^>^^ 


042470 


105061 


040066 






CLRB 


66A 


042474 


020137 


040140 






CMP 


665 


042500 


001005 








BNE 


666 


042502 


012737 


^77777 


040140 




nov 


667 


042510 


005037 


040076 






CLR 


668 


042514 


105061 


040104 




6$: 


CLR8 


669 


042520 


032764 


010000 

\j 1 www 


00001 0 

WW 1 w 




BJT 


673 


042526 


005201 








INC 


67A 


042530 


062703 


000002 






ADD 


675 


042534 


042701 


1 77770 






BIC 


676 


042540 


001314 








BNE 


677 


042542 


012737 


1 77777 


040140 




nov 


678 


042550 


005057 


0A0076 






CLR 


679 




004737 


045740 






JSR 


680 


042560 


012764 


000040 

W w W V~ V 


000010 

WW 1 V 




nov 


681 


042566 


000406 








BR 


682 


042570 


004737 


046016 




7t: 


JSR 


683 


042574 


105061 


040036 






CLR8 


68<> 


042600 


105061 


040046 






CLR8 


685 


042604 
0426^0 


004737 


045574 




8$: 


JSR 


686 


104413 








RfSREG 
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SEO 018/ 



*8IT15.BIT11 ,16(R2) 



;SET "OARiry" ERROR INDICATOR 



#111. -(SP) 
RO.WRT.RM 



;D0 A "DRIVE ClEAR" 



PC.EnPTYQ 

DPRQS(RI) 

ULDFLG(RI) 

DRVACT(RI) 

R2.TRNSWT 

2$ 

TRNSWT 

#-1.DTjW 

PC 



R1 
R3 

DRVACT(Rl) 
2S 

DPROSCRD 
6$ 

TRNSWT, R2 
R1,DTUW 
3$ 

PCGETREQ 
R2 
5$ 

«8IT12,RnCS2(R4) 



EMPTY THE QUEUE 
CLEAR THE PORT REQUEST FLAG 
CLEAR THE UNLOAD IN QUEUE FLAG 
DRIVE IS IDLE 

IF THIS DRIVE HAD AN I/O REQUEST 
IN PROGRESS CLEAR ALL OF THE FLAGS 



.-SAVE RO - R5 



.-DRIVE ACTIVE? 
;8R IF IN ACTIVE 
.•PORT REQUEST 
;8R IF NOT 

.-GET THE "TRANSFER WAIT" QUEUE 

.-DID THIS DRIVE HAVE AN I/O IN PROGRESS? 

'BR IF YES 

•GET THE DPS POINTER 
.■QUEUE ENTRY FOR DRIVE ? 
;8R IF NOT 

;'NED* SET ? 



4$ ;8R IF NOT 

#8iT15!BIT01,16(R2) ;SET 'DRIVE NON-EXISTENT' INDICATOR 
5$ .-CONTINUE 

#8IT15!6IT10.16(R2> .SET ' WN-CLEARABLE PARITY" ERROR INDICATOR 
#-T.TinER(R3) .-STOP THE TIMER 

;SET 'DRIVE ACTIVE" TO IDLE 
.'CLEAR PORT REQUEST FLAG 
;IS THIS DRIVE SETUP FOR A TRANSFER 
;8R IF NOT 

; RE SET THE INDICATOR 
.•CLEAR THE TRANSFER QUEUE 
; CLEAR UNLOAD FLAG 

;'NED' SET ' 



DRVACT(RI) 
DPROSCRD 
R1.DTUW 
6S 

#-1,DTUW 
TRNSWT 
ULDFLG(RI) 
«8IT1?,RMCS?(R4) 



Rl 
#2.R3 
#*C7.R1 
1$ 

#-1,DTUW 
TRNSWT 

PC. CL ROUE 

#CLR.RMCS2(R4) 

8$ 

PC.EnPTYQ 
DRVSTA<R1) 
DRVTYP(PI) 
PC. SET. IE 



.-nOVE TO THE NEXT DRIVE 



8R IF nORE DRIVES 

NO DATA TRANSFERS UNDERWAY 

CLEAR THE 'TRANSFER WAIT' QUEUE 

CLEAR ALL OF THE REQUEST QUEUES 

DO A MASSBUS INIT. 

CONTINUE 

CLCAR THE DRIVE'S QUEUE 

SET DRIVE TO OFFLINE 

CLEAR THE DRIVE TYPE INDICATOR 

SET "IE" WITHOUT "TRE" 

RESTORE RO - R5 



^ZR»lLeO RMOb/^/? PERf ExEf MACf«0 vOA.OO 

DRUER INITIALIZATION CODE 
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SEO 018« 



DO' 


U*t<:D 1 d 






OOo 








DO ' 
















D7 1 


C\L 1 Z. 


1 1 >7^7 












OVj 






OZ.OI 






01 '?701 


nz.01 1.0 












U*»cO jO 


nnz. 777 


OZ.PASA 
U*«cO jO 




nz. 5^z. ? 


onz.7'^7 


nz.'ii po 






10^/1 7 
1 V/MH 1 J 












f\AJ 




onooop 




7ni 
















7n^ 








7C\L. 




Ift'iOAl 




7ns 


v/*f cOOc 


01P7^7 


1 77777 
\ 1 f f f 1 


7t\f> 








707 
<\J< 




n 1 p 7A 1 


y77777 

\ 1 f r f 1 


' v/O 




noAPOl 




7nQ 




01i702 








00S0^7 


040076 


71 1 






OOOPOO 


71 P 




V 1 V/ 1 OH 


000010 


71 ^ 


n^?7P4 


W vH \J Jf 


VH H 


71^ 


n4?7^n 


000000 

VyHc cO*t 




71 S 


n<.P7^? 




71^ 


nZiP7X^ 


OOA 1 P/^ 

V/V/D 1 wO 




717 


n^?7^/^ 

V/HC f 


100AP1 

1 v/vHc 1 




71 H 






0401 14 


71 Q 


04?744 






7?n 


n4774/> 




045P30 

VH J C JV 


7P? 
f cc 


04P7';? 


00^7^7 




7?^ 

^?7 




0047^7 


0461 1 ? 


n4P76? 


\J\J J f \JC 




7?H 

' CO 


\J*^C f OH 


001^0^ 




7P0 


V/*tc ' oo 


00^7^7 

W VH f J r 


04 1 P06 


7^n 


C\L'>77'> 


0OOP07 

V/VA/C -4/' 




7^1 


C\L'?77L 


01 '?7^L 


0001 1 ^ 


7^? 




000 PO 7 




7^^ 












V/Jc » oc 


100100 




V/H Jv 1 V/ 


00^7^"^ 


04fMT16 






004737 


045P30 

w"^ JQ. J\J 


7^7 






0401 1 1 

III 


f jO 




01 P714 


0001 1 3 




w** Jv Jv 


00flP07 




7^n 








7L7 








743 








745 


043032 


005757 


001470 


746 


043036 


001427 




747 


045040 


122762 


000161 


751 


043046 


001023 




752 


045050 


004057 


046056 



RTS 



PC 



.•INTERRUPT SERVICE ROUTINE 



040102 ISR: 



1$: 
2$: 



M0V8 

SAVREG 

MOV 

MOV 

8LT 

JSR 

JSR 

RESREG 

CLR8 

RTI 



#1,ACTDRV 

RMArR.R4 

DTUW.R1 

1$ 

PC.TD 
PC.SC 

ACTDRV 



.•TRANSFER DONE ROUTINE 



040140 
040120 

000016 



TD: 



1$: 



2$: 



000016 3$: 



CLR8 

MOV 

ASL 

MOV 

ASR 

MOV 

CLR 

BIS 

MOV 

JSR 

RMCS1 

CI7 

ROL 

BMl 

TST 

BPL 

JSR 

JSR 

JSR 

TST 

BEG 

JSR 

RTS 

MOV 

RTS 

BIS 
JSR 
JSR 
MOV 
MOV 
RTS 



DRVACT(R1) 

#-1,DTUW 

R1 

*-1.TIMER(R1> 
R1 

TRNSWT,R2 
TRNSWT 

#81T07.16(R2) 

Ri.RMCS2(R4) 

RO.RD.RH 



(SP)* 
3$ 

SAVEfG 
IS 

PC.SVRH70 

PC.WC.HK 

PC.GETREQ 

R2 

2S 

PC, OPT 
PC 

#113,(R4) 

PC 



.•RETURN 



SET "ACTIVE DRIVER" FLAG 
SAVE RO - R5 
ADDRESS OF RMCS1 

GET "DATA TRANSFER UNDERWAY" INDICATOR 

8R IF NO DATA TRANSFER UNDERWAY 

CALL TRANSFER DONE 

CALL SPECIAL CONDITIONS 

RESTORE RO - R5 

CLEAR "ACTIVE DRIVER" FLAG 

RETURN 



;SET DRIVE ACTIVE INDICATOR TO IDLE 
;N0 DATA TRANSFERS UNDERWAY 

.•CANCEL TIMEOUT 

;6ET "DP8" ADDRESS FROM THE 
.TRANSFER WAIT QUEUE— CLEAR QUEUE 
;£ET DONE 
.•SELECT THE DRIVE 
.•TRANSFER ERR0R(TRE=1 ) ? 



IS TRE=1 ? 
8R IF YES 

SAVE THE RM/RM REGISTERS? 
BR IF NO 

YES— SAVE THE REGISTERS 

SEE IF WRITE CHECK TO BE PUT IN QUEUE 

GET 0P8 POINTER 

ENTRY FOR DRIVE ? 

8R JF NOT 

CALL OPTIMIZER 

RE TURN 

RELEASE THE DRIVE 
RETURN 



/lf8in5!Bn06.16(R2) 
PC.EMPTYQ 
PC,SVRH70 
#40111,(R4) 
#113, (R4) 
PC 



;SET DATA ERROR FLAG 
EMPTY THE "DRIVE'S WAIT" QUEUE 
SAVE THE RH/RM REGISTERS 
ISSUE A "DRIVE CLEAR" 
ISSUE A RELEASE TO THE DRIVE 
RETURN 



.■FORCED WRITE CHECK ROUTINE 



000002 



WC.HK: TSr WRTCHK ;D0 WRITE CHECK ? 

BEQ 25 ;8R IF NOT 

CMP8 #WRTDAT.$C0MND(R2) ;LAST OPERATION A WRITE ORDER ? 

BNE 2$ ;8R IF NOT 

1$: JSR RO.DRVQUE ;PUT THE OPERATION IN THE OUEuE 



RM DRIVER INITIALIZATION CODE 



MACRO vO^.OC <,-APR-81 01:<.?:^5 



H 

PAGE 



15 

54-15 



753 
75<. 
755 
756 
757 

758 
759 

761 

763 

764 

7d5 

766 

767 

768 

769 

770 

7/1 

772 

773 

774 

775 

776 

777 

778 

779 

780 

781 

782 

783 

784 

785 

786 

787 

788 

789 

790 

791 

792 

793 

794 

795 

796 

797 

798 

799 

800 

80" 

802 

803 

804 

805 

806 

8T0 

an 

812 
815 



043054 
045056 
043062 
043070 
043076 
043104 
043110 
043116 



045120 
045124 
043126 
043132 
0431 34 
043136 
043140 
043142 
043144 
043150 
043152 
043154 
045156 
043162 

043164 
043166 

043170 
043172 
043174 
043176 
043200 

043202 
043206 
043210 
043214 
043220 
043222 
043226 
043232 
043234 
043240 
043242 
043246 
043252 

043256 
043262 
043264 
043272 
043274 
043300 
04330? 
C43506 



000420 
005062 
116262 
016262 
016262 
105062 
112762 
000207 



116403 
001012 
004037 
000000 
042364 
106126 
100403 
104001 
004737 
000207 
005046 
110316 
012703 
005001 

030316 
001005 

005201 
106303 
001373 
005726 
000207 

105761 
001402 
000137 
105761 
001402 
0001 37 
105761 
003023 
105761 
003420 
004737 
004737 
004737 

105761 
003414 
032737 
001000 
013705 
000500 
105761 
001027 



C00016 
002136 
000012 
000010 
000024 
000151 



000016 
044666 



045374 



000001 



000027 
000034 
000032 

000002 



2$: 



BR 

CLR 

novB 

MOV 

MOV 

CLR8 

M0V8 

RTS 



2S .-QUEUE IS FULL 

STATUS (R2) ; CLEAR 'DONE' BIT 

$RMCS1(R2),SPREV0(R2) .-SAVE 
$CVL(R2).$PREVA*2(R2) ;SAVE 
SSEC(R2),$PREVA(R2) ;SAVE 
SC0DE(R2) ; CHANGE WRITE 



#WCKD,$C0MND(R2) .-CHANGE 
PC .-EXIT 



IN DPQ 
WRITE OPERATION CODE 
CYLINDER 

SECTOR AND TRACK ADDRESSES 
DATA TO WRITE CHECK 



FUNCTION CODE TO WRJTt CHECK 



040056 

044116 
040066 

044116 
040036 

040104 

046112 
045230 
044046 

040036 

040000 040016 

040020 

040026 



.-SPECIAL CONDITION ROUTINE 

SC: M0V8 R«AS(R4),R3 

BNE 2S 

JSR RO.RD.RM 
RMCS1 
CIS 

R0L8 (SP)* 

6MI 1$ 

EMT 1 

JSR PC.SET.IE 

1$: RTS PC 

2$: CLR -(SP) 

M0V8 R3.(SP) 

MOV M^ ,R3 

CLR Rl 

SC3: BIT R3.(SP) 

BNE SC5 

SC4: INC Rl 

ASL8 R3 

BNE SC3 

TST (SP)* 

RTS PC 

SC5: TST8 DPINT(RI) 

BEU 1$ 

JMP SC13 

1$: TST8 DPROS(RI) 

BEO 2$ 

JMP SC13 

2$: TST8 DRVSTA(Rl) 

BGT 4$ 

TST8 ULDFLG(RI) 

8LE 4$ 

JSR PC.6ETREQ 

iSfi PC.SVRH70 

JSP PC.SC12 

TST8 DRVSTA(RI) 

8LE 5$ 

BIT #8m4,RMERRS 

BNE 3$ 

3S: MOV RMtftR5*2.R5 

8R SC6A 

4$: TST8 DRVACT(Rl) 

BNE SC6 



READ 'TWAS ' 

BR IF ANV 'ATA' BITS SET 

READ CONTROL AND STATUS REGISTER 



IS "IE"=1? 

YES, NO DRIVES TO CHECK 
REPORT AN ILLEGAL INTERRUPT 
SET INTERRUPT ENABLE 
RETURN 

PROCESS ALL DRIVES THAT HAVE 
AN "ATA"=1 



ArA=1? 
VES 

MOVE TO THE NEXT DRIVE 

8R IF MORE TO CHECK? 
CLEAN OFF THE STACK 
RETJRN TO USER 

INITIALIZING THE DRIVE ? 

8R IF NOT 

PROCESS THE DRIVE 

PORT REQUEST OUTSTANDING ? 

BR IF NOT 

START THE OUTSTANDING COMMAND 

CHECK THE DRIVE STATUS 

8R IF ONLINE 

UNLOAD IN PROGRESS? 

8R IF NOT 

GET DPB POINTER 

SAVE THE RH/RM RET.ISTERS 

SAVE RMDS. RMERl. RMER2. AND RMMR2 

ALSO DO A DRIVE INIT (DRVINT) 

DID DRIVE COME ONLINE? 

NO 

WAS THERE AN ERROR? 
8R IF ERROR 

YES — PICKUP RMERl AND 
GO PROCESS THE ERROR 

DRIVE ACTIVE WITH COMMAND OR ERROR RECOVERY 
8R IF EITHER 



^'^h^ t<MCS/V2 PERF EXEH MACRO vW.OO 4-APR-81 

^•^ CRUER INIMALIZATION CODE 







04 4 04 A 








O ' / 




















5t- 


TSTB 
















1057^11 


v"* W JW 






TSTB 




1004''? 












032737 


OPOOOO 


040022 




BIT 




nni nil 














0001 1 1 






nov 




004037 


045042 






JSR 




nnnnnn 








RMCSl 




043706 








SC8 




01 1605 






6S: 


MOV 




104002 








EMT 




000703 








BR 










71- 




04336P 


104005 








EMT 


853 043364 


000701 








BR 


834 












835 C43366 


006301 






SC6: 


ASL 


836 043370 


012761 


^77777 


040120 




MOV 


837 043376 


006201 








ASR 


838 043400 


004737 


0461 12 






JSR 


839 043404 


010164 


U0001C 

WVW 1 V 






MOV 


840 043410 


0001 37 


043736 






JMP 


841 043414 


004037 


044666 






JSR 


842 043420 


000012 








RMDS 


843 043422 


043706 








SC8 


844 043424 


01 1605 








MCV 


845 043426 


006126 








ROL 


846 043430 


100407 








BMI 


847 043432 


105761 


040026 






TSTB 


848 043436 


003137 








BGT 


849 043440 


052762 


100210 


000016 

WW 1 w 




BIS 


850 043446 


000470 








BR 


851 043450 


004037 


044666 




1$: 


JSR 


852 04^454 


000014 








RMERl 


853 043456 


043706 








SC8 


854 043460 


012605 








MOV 


855 043462 


004737 


045230 






JSR 


856 043466 


012746 


0001 1 1 






MOV 


857 043472 


004037 


045042 






JSR 


858 043476 


000000 

WWW 








RMCSl 


359 043500 


043706 








SC8 


860 












861 043502 


006105 






SC6A: 


ROL 


S62 043504 


100406 

1 W~ \J\J 








BMI 


863 043506 


005702 








TST 


864 043510 


001447 








BEO 


865 043512 


052762 


100240 


000016 

vwww • w 




BIS 


866 043520 


000443 
004037 








BR 


867 043522 


044666 




1$: 


JSR 


868 043526 


000012 








RMDS 


869 043530 


043706 








SC8 


870 043532 


011605 








MOV 


8^1 043534 


006126 








ROL 


872 043556 


10001' 








BPL 
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PC.SC12 

DPINT(Rl) 
SC4 

DRVSTA(Rl) 
6S 

#6IT13.RMERRS*4 
7$ 

#111 .-(SP) 
RO.WRT.RM 



(SP).R5 
2 

SC4 
5 

SC4 
Rl 

*-l,TIMER(Rl) 
Rl 

PC.GETREQ 
R1,RMCS2(R4) 

sen 

RO.RD.RM 



SAVE RMDS, RMERl. RMER2, AMD RMMR2 

AlSO DO A DRVINT 

TRriNG TO INIT THE DRIVE ? 

BR IF YES, CHECK ON MORE DRIvCS 

CHECK ON DRIVE'S STATUS 

BR IF UNSAFE 

ADDRESS PLUG CHANGED ? 

BR IF YES 

DRIVE CLEAR 

WRITE THE COMMAND INTO RMCSl 

REGISTER INDEX 

PARITY EXIT ADDRESS 

PICKUP (RMAS) BEFORE THE ERROR CALL 

REPORT THE UNEXPECTED ATTENTION 

GO CHECK FOR MORE ATA'S 

REPORT THE ADDRESS PLUG CHANGE 
CHECK FOR MORE DRIVES 

SETUP TO ADDRESS WORDS 

STOP THE TIMER 

RESTORE THE DRIVE ADDRESS 

GET THE DPS POINTER FROM THE QUEUE 

SELECT DPIVE 

PROCESS .HE SEARCH 

READ THE RM'S STATUS REG. 



AND PUT IT IN R5 
WAS THERE AN ERROR? 
BR IF ERROR 
CHECK DRIVE'S STATE 
BR IF DRIVE ACTIVE WITH ORDER 

.•INFORM USER OF ERROR RECOVER COMPLETION 



(SP).R5 
(SP)* 
1$ 

DRVACT(Rl) 

sen 

*8IT15!BIT07;BIT03.16(R2) 
SC7 

RO.RD.RM .-READ ERROR REGISTER #1 



(SP)>.R5 
PC.SVRH70 
#111. -(SP) 
RO.WRT.RM 



AND SAVE IT IN R5 
SAVE RH/RM RFGISTERS 
ISSUE A DRIVE CLEAR 



R5 .-WAS 'UNSAFE" CONDITION =1? 

1$ ;8R IF YES 

R2 .-ANYTHING IN QUEUE ? 

SC7 ;8R IF NOT 

#8IT15.BIT07.6IT05.16(R2) .-INFORM USER OF ERROR 

SC7 

RO.RD.RM .-READ DRIVE STATUS REG. #1 



(SP),R5 .-SAVE RMDS IN R5 

(SP>* ;"ERR"=1? 

2$ .-BR IF NO— UNSAFE CLEARED 



/R'^eO RM05/5/2 "^EWF EXER "lACKO vOA.OO <.-APR-81 

DRWER IMTIAcIZATION CODE 



Of 5 




110 7A 1 


1 77777 

\ f f 1 1 ' 


AA AA7A 

U4UU50 






0 7/ 


A/ 7C/ ^ 


AA/ 777 


r J i» 07A 






1 CD 






A C 0 7A D 


1 1 AAAA 


AAAA 1 A 




etc 


Q 7iL 




AAA/ T7 








OK 


077 




A 7 0 7A Q 


A 1 AAAA 

0 1 OOUO 




01 . 

c* ■ 


D I T 
Si 1 


O 70 


U*>5do6 


AA1 A1 C 








PIUP 


D70 




110 '7A 1 


1 77777 

\ f f f f 1 


AAAA5A 




MA WD 


OoU 


l\J X^7t^ 
U*« JJ'O 


1 1 57A1 


AAAAA1 
UUUUU 1 


AAAA7A 
UhUU JO 




MAun 

nUVO 


So 1 


n/ TiL A/ 


nnA 7n' 

UUO 3U 1 










as 0 




ni 57A1 


A7'\57A 
U J JC jU 


AAAI 3A 
UhU I cU 




MAU 

nuv 


fiS7 


n/ TA 1 L 


nriAoni 
uuot u 1 








ACS 


oo*» 


n/ TAI A 
I 30 1 0 


AAA1 77 

OUU 1 3 ' 


A/ 71 /A 






IMD 


OOJ 






1 AA35A 
1 UUccU 


AAAA1 A 
UUUU 1 o 


7t • 
ja • 


□ i ^ 


OOD 
















A/7Z.7A 

v't jOjU 




AAAA5A 
UhUUcC 




7 • 


ri OR 




n/ 7A7Z. 


nnA777 


AAA1 7A 






J in 


aQ5 




1 n««7Ai 


AAA1 AA 
U*»U 1 Uh 








aoi 


fW 7AZ.Z. 


AA7AA5 








T 

Su 1 


BQ/. 


A/ 7 A/. A 


1 AQnA1 


AAA1 AA 
UhU I Uh 






ri BB 


flQ<\ 




1 1 A1 AA 

I I D 1 OH 


AAA! A? 
UhU I He 


AAAA1 A 
UUUU 1 o 


1 1 • 




OtO 


A/ 7AAn 


1 n«\7Ai 

1 \JJ f o 1 


AAAA 7 A 
Uh UU JO 








aG7 
















U*f jOOO 


ni ?7AA 

KJ } C f ••o 


AAA! 1 1 
UUU 1 1 1 






l"U V 




nz, 7A75 




AAIAAP 
Uh jUhc 








vv J 


















J** J f UO 










Qf><; 




nam '^7 


OA 71 7Ci 
Uh J 1 1 \J 




C * ■ 


IMP 




















1 n'?7Ai 


nAAA3A 






TSTR 


QDB 


OA 771 5 










RFQ 
DC W 






AAA 7^7 


AAA! 1 3 
UhD I 1 C 






J jn 


7 1 u 






Uhccoh 






KR 


Q1 1 












RR 




V/H Jf CO 








1t- 




7 ( O 


n/.77PA 


AAA 777 


AA ? 7nA 

Uh c jUO 






l^R 

nj jn 


Q1 7 
7 1 ^ 




AAAI 77 


AA 7 1 7n 

Uh J \ f \J 




Cm* 


IMP 


7 1 O 














01 0 

7 1 7 


U*fJf JO 


1 n<;7Ai 

1 \JJ f O 1 


AAfll OA 

UHU 1 VH 




1 1 • 


T^TR 


7CV/ 


\JHjf *»t 


nn7Af)? 








RI F 


Q51 


nA77iA 


1 AiiAAl 


AAAIAA 
Uhv I Uh 






ri RR 


7tC 


0^7710 
Uh jfjyJ 


1 a*;aai 

1 u jUo I 


AAAA PA 
UhUUcO 




1 1 • 

1 9 • 


ri RR 


7^: 1 




1 7A1 77 

1 JO 1 Jf 


1AA1 AP 

JhU I H £ 


AAAIAA 
UhU I UU 




R I TR 


QPZ. 














Vcj 




AA1 A1 ? 








RMF 






AAA777 
UU*»f Jf 


AAA1 7A 

UhO I JH 






KR 


Q?7 


nL.X77n 

\JHjf f U 


U J£ r Oc 


AAAPOA 
UUUcUU 


AAAAI A 




RI ^ 


Q5a 

7tO 


n^^77A 
'J** Jf fO 


yjvjf Jf 


AAAI 1 A 
UhU I 1 H 






T^T 






1 UVUUt 








RPl 


OVl 

7 


\JHH\J\JH 


AAA 77 7 
UU*» f J f 


Uh jc jU 






I^R 


7 J 1 




1 1 A1AA 


AAAI A? 
UhU I Hc 


AAAAI A 


C9* 


Mni/R 

i^UVO 






146137 


040142 


040100 




BIC8 


933 




006301 








ASL 


95^ 


0AA0?6 


012761 


M1717 


040120 




MOV 


935 


(KA034 


006201 








ASR 


936 


044036 


004737 


041206 






JSR 


937 


044042 


000137 


043170 
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#-l.DRVSTA(R1) ;DRJVE IS UNSAFE 
PC.SVRH70 .-SAVE RH/RM RFGISTERS 

*8in5.Bin2.16(R2) ; INFORM USER OF UNSAFE ERROR 
SC7 



*8in2.R5 
3$ 

#-1 .DRVACT(RI) 
*1 .DRVSTA(RI) 
RI 

*15000..TIMER(R1) 
RI 
SC4 

*8IT15.BIT07.8IT04.16(R2) 



•MOL" = 1 ? 
8R IF YES 

ACTIVE ERROR RECOVER 
ONLINE 



.'START 15. SECOND TIMER 

.'INFORM USER OF ERROR 



DRVACT(RI) .-DRIVE IS IDLE 

PC.POPQUE .'REMOVE THE QUEUE 

ULDFLG(RI) .'UNLOAD IN PROGRESS OR QUEUE? 

1i ;8R IF NOT 

ULDFLG(RI) .'CLEAR UNLOAD FLAG 

ATAQIT(R1).RMAS(R4> .'CLEAR ATTENTION BIT 

DRVSTA(RI) ;]S THE DRIVF UNSAFE ? 

2$ ;8R IF IT IS 

#111. -(SP) .-DRIVE CLEAR COMMAND 

RO.WRT.RM .'WRITE THE COMMAND INTO RPCS1 

.'REGISTER INDEX 
.'PARITY EXIT ADDRESS 
.'CHECK FOR MORE DRIVES 

;IS DRIVE IDLE? 
;YES 

;GET DPS POINTER 
.'PROCESS THE PARITY ERROR 
.'CONTINUE 



SC4 

DRVACT(R1 ) 
IS 

PC.GETREQ 
PC.CI7 
2S 

PC.CI7B 
SC4 

ULDFLG(RI) 
1$ 

ULDFL6<R1) 
DRVACT(RI) 
ATAeiT(RI) 

2$ 

PC.POPQUE 
#8IT07.16( 
SAVEFG 
2$ 

PC,SVRH70 
ATA8IT(R1) 
ATA8IT(R1) 
RI 

#-1.TIMER( 
R1 

PC. OPT 
SC4 



.'PROCESS THE UNCORRECTABLE PARITY ERROR 
.•CHECK MORE DRIVES 

.••\M.OAD IN PROGRESS"? 
;8R IF NO 

.'CLEAR UNLOAD FLAG 
;SET DRIVE IDLE 
.SRCHWT .'DOING A SEARCH OPERATION FOR 

;AN I/O COMMAND? 
BR IF YES 

REMOVE REQUEST FROM QUEUE 
R2) ;SET 'DONE" BIT 

SAVE THE REGISTERS? 
BR IF NO 

YES— SAVE ALL OF THE RH/RM REG'S 
.RMAS(R4) .'CLEAR ATTENTION BIT 
.SRCHWT .'CLEAR IMPLIED SEEK SET 

WORD INDEX 
RI) -STOP CLOCK 
RESTORE RI 
START A REQUEST 
CHECK FOR MORE DRIVES 



c<H/RW ORWfcR INITIALIZATION CODE 



•1ACR0 VOA.OO 4-APR-81 01:42:^3 



K 

PAGE 



15 

54-16 



Q70 


U*i*iU*tO 


m m Az. 

U 1 U 1 OH 


noon in 




VtU 


JC 


U 1 Oh J f 


rnnoi p 


OAOm A 


7*» 1 




\J 1 Oh j f 


00001^ 


O^OOPO 






U 1 Oh j f 


0000/ P 


OLOOPr 


T** J 




U 1 OH J ' 


0000^0 


OAOOPi 

VH WcH 






UUhu Jf 


OA OA Of 1 






US'* 1 vO 


UvUhU I 








nz.Ai 1 n 








QZ.7 


nAz.1 1 ? 

UhS I 1 c 


UU J ' tO 








^\LL^ 1 ^ 

vS-^ 1 1 *• 


V'VVO' H 




















UvO J\J 1 






T J 1 




ni P7A1 


1 77777 


040120 

\/HV 1 CV/ 














V*«M 1 JV 


V 1 U 1 OH 


00001 n 

0^01 4P 






VJ*4M 1 JH 


1 A 1 A^ 

1 O 1 OH 


00001 f» 

V/wVV > V 


7 J J 


\J«»H 1 He 


10S7A1 

1 \J J * O 1 


040056 

VH \I\J J%J 




7 JO 


V/HH 1 HO 


001 ^?4 

VV 1 HcH 






QS7 


0441 so 

VHH 1 JV 


lOSOfll 


0400Sfi 

VH 




7 JO 


r.^A 1 S4 

vHH 1 JH 


00^0^7 

WV/HV/ J f 


040400 




7 J 7 


ru.Ai Afi 

V/HH 1 OV/ 


000 P^O 








OAAI AP 

UHH 1 OC 


1 il«57A1 

1 U J ' O 1 


040036 

UH W JO 




TO f 


n^Ai AA 

UHH 1 OO 


00^01 ^ 

VV JU 1 H 








n^^i 70 


00'?70P 

\J\J J f \JC 






/O J 




001 4PA 

VV/ 1 H^O 






70H 


AAA 1 7A 

V/HH 1 r H 


0047^7 

V V/H f J f 


0461 1 ? 

VHU 1 1 C 




TO J 


OA A POO 


0SP7A,'' 


140000 

1 ■•VVV.'V 


000016 

WW 1 V 


TOO 


V/HH^V/O 


004737 


045P30 

VH ^ t _/ V 






V/HH^ 1 ^ 


V V/H r J f 


04^1 ^4 

VHV 1 -?H 




Q71 


UHH t 1 u 


0004 1 4 

V/V/V/H 1 H 






7 1 C 


\/HHC C V 


0^77^4 

\J jC ' VJH 


004000 

V V"* V V V 


000000 

www 


Q7< 

7f J 


V/HHCCO 


00100^ 

V/V 1 VVVJ 






074 


VHHC JV/ 


00A301 






<575 

~' J 


V/HH t Jt 


017761 


035230 

V^ ^V 


040120 

V~V 1 tv 


Q7A 


VHH t HV/ 


00AP01 

VVV/tV 1 






977 


044P4? 

V/HHCHt 


000402 

VVV~ Vt, 






Q7R 




004737 

V V" ' ' 


041206 




Q7Q 


\/HH t J V 


0001 ?7 

WV/ 1 J ' 


0431 70 

V~-/ I ' V 














TO 1 










tOc 










TO^ 




















tO J 










~oo 


0442S4 

\/H"*t ^H 


005737 

V V J ( J * 


040102 

V~ V 1 vt 




TO* 


V/HH t UV/ 


001027 






TOO 


044262 


112737 


000001 

www ' 


040103 

V~ V 1 V ^ 


TOT 


044270 


104412 

1 VHH 1 t 






990 


044272 


005001 






991 


V/HHt f H 


00S003 

V/V-* VVJ 








04427A 

vHHt f VJ 


005763 


040120 

V~ V ' t V 




993 


044302 


002406 






994 


044304 


166663 


000002 


040120 


995 


044312 


003002 






996 


0443^4 


004737 


044344 




997 


044320 


005201 






998 


044322 


005723 







SC12: 



1$: 

SC13: 

1$: 



2$: 



4$: 
3$: 



MOV 

MOV 

MOV 

MOV 

MOV 

JSR 

BR 

RTS 

TST 

BR 

ASL 

MOV 

ASR 

MOV 

M0V8 

TST8 

BEO 

CLR8 

JSR 

NOP 

TST8 

BGT 

TST 

BEO 

JSR 

BIS 

-SR 

JSR 

BR 

BIT 

6NE 

ASL 

no^ 

ASR 
BR 
JSR 
JMP 



R1.RMCS2(R4) .-SELECT DRIVE 
RMDS(R4).RMERRS ;SAVE THE FOUR REGISTERS THAT 
RMER1(R4},RMERRS«2 :UiLL tElL US SOMETHING 

RMER2(R4),RMERRS«4 
RMMR2(R4).RMERRS*6 



RO.DRVINT 
1$ 

PC 

(SP)* 
SC3 

R1 

#-1 ,TIMER(R1) 

R1 

R1.RMCS2(R4) 
ATA8IT(R1).RMAS(R4) 



INIT. THE STATE Of THE DRIVE 
TAKE ERROR EXIT 
RETURN 

POP PC OFF OF THE STAfK 
PROCESS THE PARITY ERROR 

SETUP TO ADDRESS WORDS 
STOP THE TIMER 

SELECT THE DRIVE 

; CLEAR THE ATTENTION Br 



DPINT(RI) .-INITIALIZING THE DRIVE 

2$ ;8R IF NOT 

DPJNT(RI) ; CLEAR THE INIT INDICATOR 

RO.DRVINT ;G0 INIT THE DRIVE 

.'DUMMY PARITY ERROR RETURN 
DRVSTA(RI) .-DRIVE ONLINE ? 

2$ ;8R IF YES ~ START ORDER 

R2 .-QUEUE ENTRY FOR THE DRIVE 

3$ ;8R IF NOT 

PC.6ETREQ ;GET DP8 ADDRESS 

#eiT15!BIT14,16(R2) .-INFORM USER THAT DRIVE OFFLINE 
PC.SVRH70 .-SAVE THE REGISTERS 

PC.POPOUE .-REMOVE THE QUEUE 

3$ 

;DVA SET 



#eiT11.RMCS1(R4) 
4$ 
R1 

#15000..TIMER(R1) 
R1 
3$ 

PC. OPT 
SC4 



.-SET THEN CALL OPT 



.-START 15. SECOND TIMER 



.-START THE PENDING REQUEST 
.-PROCESS OTHER DRIVES 



;RM TIMER ROUTINE 
- '"ALL 

r MOV #TIM£.-<SP) 

JSR PC.RMTMR 

RMTMR: TST ACTDRV 

BNE 4$ 

M0V8 #\ACTSTR 

SAVREG 

CLR R1 

CLR R3 

1$: TST T1MER(R3) 

BLT 2$ 

SLB 2(SP).T1MER(R3) 

BGT 2$ 

JSR PC.STO 

2$: INC R1 

TST (R3)» 



.-ELASPED TIME IN MILLISECONDS ON THE STACK 
.-CALL RM05 TIME ROUTINE 

CHECK "ACTDRV I ACTSTR" 
IF NON ZERO EXIT 
SET "ACTSTR" 
SAVE RO - R5 
START WITH DRIVE 0 

IS THE TIMER RUNNING? 
BR IF NO 

COUNT THE INTERVAL 
BR IF NO SOFTWARE TIMEOUT 
CALL SOFTWARE TIMEOUT ROUTINE 
MOVE TO NEXT DRIVE 



RH/RM DRIVER INITIALIZATION CODE 
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SEO 0195 



999 

1000 

1001 

1002 

1003 

100^ 

1005 

1006 

1007 

1008 

1009 

1010 

1011 

1012 

1013 

10U 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

10AA 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 

1061 



044324 
044330 
044332 
044534 
044340 
044342 



044344 
044346 
044350 
044352 
044354 
044360 
044364 
044370 
044372 
044374 
044376 
044400 
044404 
044406 
044412 
044414 
044420 
044424 
044426 
044432 
044436 
044444 
044450 
044454 
C44460 
044464 
044472 

044474 
044500 
044504 
044506 
044512 
044514 
044520 
044522 

044524 
044530 
044532 



022701 
003362 
104413 
105037 
012616 
000207 



010146 
010246 
010346 
010446 
013704 
010164 
004037 
000012 
044654 
105726 
100436 
105761 
001033 

^o•>76^ 

001030 
013702 
020137 
001404 
000137 
004737 
052762 
004737 
105061 
105061 
005037 
012737 
000470 

116405 
136105 
001007 
105761 
001021 
105761 
001035 
000454 

105761 
001003 
105761 



000010 



040103 



3$: 
4S: 



CMP 
BGT 

RESREG 
CLRB 
MOV 
RTS 



#8..R1 
IS 

ACTSTR 

(SP)t.(SP) 

PC 



OUT Of DRiVfcS? 
8R If NO 
RESTORE RO - R5 

ZEND ACTJt/E SOFTWARE TIMEOUT ROUTINE FLAG 

ADJUST THE STACK 

RETURN 



SOFTWARE TIMEOUT ROUTINE 



NOTE: THIS ROUTINE MUST BE ENTERED AT PRIORI TV 6 



CALL: 



STO: 



040154 
000010 
044666 



040056 

040066 

040076 
040140 

044654 
046112 

101000 000016 

045230 

040026 

040104 

040076 

^77777 040140 



000016 
040142 

040056 

040066 

040056 
040066 



STOl 



1$- 



ST02: 



ST03: 



OR GREATER 


STO 




MOV 


#DRVNUM.R1 


JSR 


PC, STO 


RETURN 




MOV 


R1 ,-(SP) 


MOV 


R2.-(SP) 


MOV 


R3,-(SP) 


MOV 


R4,-(SP) 


MOV 


RMADR,R4 


MOV 


R1 .RMCS2(R4} 


JSR 


RO.RD.RM 


RMDS 




ST09 




TST8 


(SPJ ♦ 


BMI 


ST02 


TST8 


DPJNT(RI) 


BNE 


ST02 


TST8 


DPRQS(Rl) 


BNE 


ST02 


MOV 


TRNSWT,R2 


CMP 


R1 .DTUW 


BEO 


IS 


JMP 


ST09 


JSR 


PCGETREQ 


BIS 


*8IT15:BIT09J 


JSR 


PC , SVRH70 


CLR8 


DRVACT(Rl) 


CLR8 


ULDr LulRl ) 


CLR 


TRNSWT 


MOV 


M'^ .DTUW 


BR 


ST09 


MOVB 


Rf1AS(R4),R5 


BJTB 


ATASIKRD.RS 


BNE 


ST03 


TSTB 


DPINT(RI) 


BNE 


ST06 


TST8 


DPROS(Rl) 


BNE 


ST07 


BR 


ST09 


TST8 


DPINT(RI) 


BNE 


IS 


TSTb 


DPRQS(RI) 



.'DRIVE NUMBER 
.■CALL 



SAVE R1 

:ave R2 

SAVE R3 
SAVE R4 

GET ADDRESS OF 'WlCSI" 

SELECT THE DRIVE 

READ 'WIVE STATUS REG' 



IS 'DRy"=1? 
8R IF YES 

TRYING TO INTIALIZE THE DRIVE ? 
8R IF YES 

OUTSTANDING PORT REQUEST FOR THE DRIVE 
8R IF VES 

PICKUP TRANSFER WAIT QUEUE 
TRANSFER UNDERWAY ON THIS DRIVE? 
BR IF YES 

IF NOT DON'T BOTHER DRIVES 
GET OPB ADDRESS 
16(R2) .-SET THE ERROR FLAGS 
SAVE RH/m REGISTERS 
DRIVE IS IDLE 
CLEAR THE UNLOAD FLAG 
CLEAR DPS ADDRESS 
CLEAR THE TRANSFER DRIVE M 
DON'T BOTHER OTHER DRIVES 

READ ATTENTION REG 
IS ATTENTION FOR THIS DRIVE 'JP ? 
YES 

TRYING TO INTIALIZE THE DRIVE ? 
BR IF YES - DRIVE NOT ONLINE 
OUTSTANDING PORT REQUEST FOR THE DRIVE 
BR IF YES - NO RESPONSE 10 REQUEST 
OTHER WISE EXIT 

INITIALIZING THE DRIVE ? 
8R IF INIT PENDltNG 
PORT REQUEST PENDING ' 



^7«MueO PERF EXE« 
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15 
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SfO 0194 



'062 


044536 


001446 






T063 


044540 


012763 


177777 


040120 


1064 


044546 


000442 






1065 










1066 


044550 


004737 


042564 




1067 


044554 


000437 






1068 










■:069 


044556 


105061 


040056 




1070 


044562 


105061 


040036 




1071 


044 >66 


012763 


177777 


040120 


1072 


044574 


004737 


046112 




1073 


044600 


005702 






1074 


044602 


001424 






1075 


044604 


052762 


1 40000 


000016 


1076 


044612 


000414 






1077 










1078 


044614 


012763 


177777 


040120 


1079 


044622 


105061 


040066 




1080 


044626 


004737 


046112 




1081 


044632 


005702 






1082 


044634 


001407 






1083 


044636 


012762 


1 00004 


000016 


1084 


044644 
044650 


004737 


046016 




1085 


004737 


045230 




1086 


044654 


012604 






1087 


044656 


012603 






1088 


044660 


012602 






1089 


044662 


012601 






1090 


044664 


000207 






1091 










1092 










1093 










1094 










1095 










1096 










1097 










1098 










1099 










1100 










1101 


044666 


013737 


040152 


045030 


1102 


044674 


011646 






1103 


044676 


013737 


040154 


044712 


1104 


044704 


062037 


044712 




1105 


044710 


013727 






1106 


044712 


000000 






1 107 


044714 


000000 






1108 


044716 


013766 


044714 


000002 


1109 


044724 


013746 


040154 




1110 


044730 


062716 


000010 




1111 


0A4734 


032736 


010000 




1112 


0A4740 


001035 






V 13 




01 f f'*o 






ru 


044746 


052716 


020000 




1115 


044752 


001002 






1116 


0*4754 


022620 






1117 


044756 


000430 






1118 


04/. 760 









1$: 

ST05: 
ST06: 



ST07: 



ST08: 
ST09: 



BEQ 
MOV 
BR 

JSR 
BR 

CLR8 

CLR8 

MOV 

JSR 

TST 

BEQ 

BIS 

BR 

MOV 

CLR8 

JSR 

TST 

BEQ 

MOV 

JSR 

JSR 

MOV 

MOV 

MOV 

MOV 

RTS 



ST09 

#-1JIMER(R3) 
ST09 

PC.CJ8 
ST09 



;8R JF NOT 
.•STOP THE TIMFR 
.-EXIT 

;G0 HANDLE THE PARITY ERROR 



DPJNT(RI) 
DRVSTA(RI) 
#-i.TJMER(R3) 
PC.GETREQ 
R2 
ST09 



;CLEAR THE INITIALIZE INDICATOR 
:SET LiNJT OFFLINE 
;STOP THE TIMER 
;GET THE DPS ADDRESS 
;REQUEST IN QUEUE ? 
;8R IF NOT 

#8IT15!BIT14 J6(R2) .-INFORM THE USER DRIVE NG^ AVAILABLE 
ST08 .-FINISH 



*-1.TIMER(R3) 
DPRQS(RI) 
PC.GETREQ 
R2 

ST09 



*8IT15!BIT2.16(R2) 



STOP THE TIMER 

CLEAR PORT REQUEST INDICATOR 
GET DPS ADDRESS 
QUEUE ENTRY FOR DRIVE ? 
8R IF NONE 



PC.EMPTYQ 

PC.SVRH70 

(SP)*,R4 

(SP)*.R3 

fSP;*,R2 

(SP)*.R1 

PC 



.•INFORM USER OF PORT REQUEST ERR0F« 



CLEAR THE QUEUE FOR THE DRIVE 
SAVE THE REGISTERS 
RESTORE R4 
RESTORE R3 
RESTORE R2 
RESTORE Rl 
RETURN 



ROUTINE TO READ A RH/RM REGISTER 



CALL 



RD.RM: 



RD.RMli 
RD.ADR: 
RD.WRD: 



1$: 



JSR 

INDEX 

ERRADR 

RETURN 

MOV 

MOV 

MOV 

ADD 

MOV 

.WORD 

.WORD 

MOV 

MOV 

ADD 

BIT 

BNE 

MOV 

BIT 

BNE 

CMP 

BR 



RO. RD.RM 



MCPEMX.RD.RM2 

(SP),-(SP) 

RMADR.RD.ADR 

(RO)*,RD.ADR 

i3(PC)*.(PC)* 

0 

0 

RD.WRD. 2(SP) 

RMADR--(SP) 

#RMCS2,(SP) 

*8IT12,a(SP)* 

RD.RM3 

aRMADR.-(SP) 

*8IT13,(SP) 

1$ 

(SP)*.(RO)* 
RD.RM4 



60 READ A REGISTER 

REG. INDEX FROM BASE 

ERROR ADDRESS— PROCESS ERROR STARTING 

AT THIS ADDRESS 

CONTENTS OF REG. IS ON THE STACK 

MAX. RETRYS ALLOWED 

SAVE RO FOR RETURN 

FORM THE DESIRED ADDRESS 

USING THE BASE AND THE INDEX 

READ THE DESIRED REGISTER OF THE RM DRIVE 

ADDRESS IS FORMED HERE 

REG. CONTENTS PUT HERE 

RETURN IT TO THE USER 

PUT THE ADDRESS ON THE STACK 

FORM THE ADDRESS OF RMCS2 

CHECK THE 'NED* BIT 

8R IF DRIVE NON-EXISTENT 

READ RMCSl 

DID MCPE SET? 

8R IF YES 

ADJUST FOR RETURN 

EXIT 



CZHMUBO HM05/3/2 PERF EXER fiA'.RO V04.00 

RH/RM DRIVER INITIALIZATION CODE 
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1119 

1120 

1121 

1122 

1123 

112A 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

n3A 

1135 

1136 

1137 

1138 

1139 

1K0 

1K1 

11A2 

1U3 

1UA 

1K5 

1K6 

1K7 

1K8 

1U9 

1150 

1151 

1152 

1153 

115A 

1155 

1156 

1157 

1158 

1159 

1160 

1161 

1162 

1163 

116« 

1165 

1166 

1167 

1168 

1169 

M70 

1171 

1172 

11/3 

M74 



044760 
0A4762 
OA A 766 
0AA770 
0AA77A 
0AA776 
0A5000 
OA5002 
0A5006 
0A5010 
0A5016 
0A5022 
0A502A 
OA 5026 
OA5030 
0A5032 
0A503A 
OA 5036 
0A50A0 



1 U*»UU J 






en 1 


X 


RPPORT 'MrPF" FRROR 




\JH\J 1 H\J 




1 o 1 




DATA TRANSFER UNDERWAV 


1 nn^ns 






Qf 1 i 


2$ 


'NO 

"TRE" = 1 ? 


U JC ' 1 O 


CiLCiCiCiCi 




RI T 


#BIT1A (SP) 


\J\J 1 HUc 








2$ 


NO 








TST 


(SP) 


VES— CLEAN OFF THE STACK AND 








RR 

on 


RD RM3 


•TAKE THE FATAL ERROR tXJT 
•CLEAR 'MCE" BV SENDING A "1 


\JjCi id 






R I ^ 


#BJT1A (SP) 


VwV J 1 o 




SWAB 


(SP) 


'POSITION BEFORE WRITING 


ni 3737 


0A015A OA502A 




MOV 


RM^DR . 3$ 


;FORM ADDRESS OF HIGH BYTE 


\J\J JC-Ji 


OASOPA 




INC 


3$ 




1 1?^»37 

1 1 Csjjt 








(SP)* a(PC)* 


■•WRITE THE HIGH BYTE OF RMCS1 


nooooo 


3S- 




.WORD 


0 


.'ADDRESS STORAGE 


005327 






DEC 


(PC)* 


.■EXCEEDED MAX. RETRVS 


000003 


RD. 


RM2: 


.WORD 


3 




002326 






BGE 


RD.RM1 


;BR IF NO 


011000 


RD. 


RM3: 


MOV 


(RO).RO 


; FATAL ERROR EXIT 


012616 






MOV 


(SP)*.(SP) 




000200 


RD.RMA: 


RTS 


RO 





rO "TRE* 



ROUTINE TO WRJTE A REGISTER 



CALL 



MOV 

JSR 

INDEX 

ERRADR 

RETURN 



DATA.-(SP) 
RO.WRT.RM 



0A50A2 


013737 


0A0152 


0A521A 


WRT.RM: 


MOV 


MCPEMX.WRT.R2 


0A5050 


016637 


000002 


0A5130 




MOV 


2(SP).WRT.WD 


0A5056 


012616 








MOV 


(SP)t.(SP) 


0A5060 


012037 


0A5132 






MOV 


(RO)+.WRT.AD 


0A506A 


001015 








BNE 


1$ 


0A5066 


122737 


000150 


OAS 130 




CMPB 


*150,WRT.WD 


0A507A 


002A11 








BLT 


1$ 


OA 5076 


00A037 


0AA666 






JSR 


RO.RD.RM 


OA5102 


000000 








RMCS1 




0A510A 


OA 5220 








WRT.R3 




0A5106 


000316 








SWAB 


(SP) 


0A5110 


0A2716 


177770 






BIC 


**C7,(SP) 


0A511A 


112637 


0A5151 






M0V8 


(SP)+.WRT,WD*1 


0A5120 


063737 


0A015A 


0A5132 


IS: 


ADD 


RWADR.WRT.AD 


0A5126 


012737 






WRT.Rl: 


MOV 


(PC) + ,a(PC)-^ 


0A5130 


000000 






URT.WD: 


.WORD 


0 


0A5132 


000000 






WRT.AD: 


.WORD 


0 


0A513A 


0137A6 


0A015A 






MOV 


RMADR,-(SP) 


0A51A0 


062716 


000010 






ADD 


#RMCS2.(SP) 


0A51AA 


032736 


010000 






BIT 


#8IT12,a{SP)* 


OA5150 


001023 








BNE 


WRT.R3 


0A5152 


00A037 


OA A 666 






JSR 


RO.RD.RM 


0A5156 


00001 A 








RMER1 




0A5160 


OA 5220 








WRT,R3 




0A5162 


032726 


000010 






BIT 


/»8IT03,(SP)* 


0A5166 


001A16 








BEQ 


WRT.RA 


0A5170 


016057 


177776 


OA 5202 




MOV 


-2(R0),1$ 


OAS' 76 


00A037 


0AA666 






jSR 


RO.RD.RM 



DATA TO BE LOADED ON THE STACK 
CALL THE ROUTINE TO LOAD<WRITE) THE REG. 
INDEX Or THE REGISTER TO BE LOADED 
ADDRESS TO RETURN TO ON AN ERROR 
ERROR FREE RETURN 

MAX RETRYS ALLOWED 
SAVE THE WORD TO WRITE 
ADJUST THE STACK 

GET INDEX OF REGISTER TO BE WRITTEN 
8R IF NOT RMCSl 

IS THE COMMAND FOR DATA TRANSFERS? 
YES— DON'T GET THE OLD A16 8 A17. % PSEL 

NO COMBINE A166A17. £ PSEL WITH 

THE COMMAND BEFORE SENDING IT TO 
THE RH/RM 



FORM THE ADDRESS OF THE DISK RFG, 

LOAD THE DESIRED REG. 

WORD TO WRITE GOES HERE 

ADDRESS IS FORWD HERE 

PUT THE ADDRESS ON THE STACK 

FORM THE ADDRESS OF RMCS2 

CHECK THE 'NED' BIT 

BR IF DRIVE NON-EXISTENT 

CHECK FOR PARITY ERROR ON WRJTE 



BR IF 'T'ARrO" 
PICKUP THE INDEX 
READ THE REG. 



;ci^lU8G RM05/^'2 PERF ExER "lACRO V04.00 

(iH'W DRIVER INITIALIZATION LODE 
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B 

PAGE 



16 

54-20 



SEO 0196 



^ V5 
1176 
'177 
• VS 
•179 
•180 
'181 
^182 
185 
184 
185 
186 
187 
158 
189 

190 
191 

^92 
193 
194 
195 
196 
197 
1 98 
199 
200 
201 
202 
203 
204 
205 
20 
207 
208 
209 
210 
211 
212 
213 
214 
215 
217 
218 
219 
220 
221 
222 
223 
224 
228 
229 
230 
231 
232 
'233 
'254 
' . re 



045202 
045204 
045206 
04S210 
045212 
045214 
045216 
045220 
045222 
045224 
045226 



000000 
045220 
1 04004 
005726 
005327 
000003 
002343 
011000 
000401 
005720 
000200 



IS: 



WRT.R2: 
WRT.R3: 

WRT.R4: 
WRT.R5: 



.WORD 

URT.R3 

EMT 

^ST 

DEC 

.WORD 

BGE 

MOV 

BR 

TST 

RTS 



4 

(SP)* 
(PC)* 
3 

WRT.R1 

(RO).RO 
WRT.R5 
(RO)* 
RO 



REG. INDEX 

RETURN TO THIS ADDRESS ON ERROR 

REPORT THE PARITY ON WRITE ERROR 

CLEAR OFF THE STACK 

DECREMENT THE ERROR COUNT 

RETRY COUNTER 

TRY AGAIN IF NOT FINISHED 

TAKE THE "PARITY ON WRITE" ERROR EXIT 

EXJT 

ADJUST FOR ERROR FREE EXIT 



ROUTINE TO SAVE THE RH/RM REGISTERS AS PER DP8-14 



CALL 



MOV 

.SR 



*DP8NUM,R? 
PC.SVRH70 



045230 


104412 






SVRH70: 


SAVREG 




SAVE RO - R5 


C45232 


005702 








TST 


R2 


QUEUE ENTRY FOR THE DRIVE ? 


045234 


001442 








BEO 


6S 


8R IF NONE 


045236 


01 3704 


0401 54 






MOV 


RMADR,R4 




045242 


111264 


000010 






M0V8 


(R2),RMCS2(R4) 


•SELECT DRIVE 


045246 


016203 


000014 






MOV 


14(R2),R3 


■GET THE ERROR TABLE POINTER 


045252 


001433 








BEO 


6S 


■EXIT IF NO ADDRESS 


045254 


005037 


045310 






CLR 


3$ 


■COUNTER t POINTER 


045260 


023727 


045310 


000022 


If: 


CMP 


3$.4fRMDB 


•REACHED THE BUFFER REGISTER ? 


045266 


001006 








BNE 


2$ 


;8R IF NOT 

; OR SET ? 


045270 
045276 


032764 


C00200 


000010 




BI T 


*8IT07,RMCS2(R4) 


001002 








BNE 


2t 


•8R IF SET 


045300 


005023 








CLR 


(R3)* 


; STORE RMDB AS ZEROES 


045302 


000405 








BR 


4S 


; CONTINUE 


045304 


004037 


044666 




2$: 


JSR 


RO.RD.RM 


;READ THE SELECTED REGISTER 


045310 


000000 






3$: 


.WORD 


0 


;REGISTER INDEX 


045312 


045336 








5S 




; ERROR RETURN ADDRESS 


045314 


012623 








MOV 


(SP)*,(R3)* 
3$,*RMEC2 


; STORE THE REGISTER CONTENTS 


045316 


023727 


045310 


000046 


4$: 


CMP 


rREACHED THE END ? 


045324 


001406 








BEO 


6S 


;8R IF YES 


045326 


062737 


000002 


045310 




ADD 


*2.3$ 


; INCREMENT THE REGISTER INDEX 


045334 


000751 








BR 


1$ 


:CONTINUE READING THE REGISTERS 


045336 


004737 


042264 




5$: 


JSR 


PC.C17 


;PROCFSS THE UNCORRECTABLE PARITY 


045342 


013746 


001234 




6$: 


MOV 


SCPUOP,-(SP) 
**C1 74000, (SP) 


; CHECK THE CPU (RH) TYPE 


045346 


042/16 


003777 






8IC 


; LEAVE THE CPU TYPE BITS 


045352 


022726 


030000 






CMP 


4f30000,(SP)* 


rSEE IF RH70 


045356 


001004 








BNE 


7$ 


;IF NE. NO 


045360 


063704 


040162 






ADD 


RHEXT,R4 


.•POINT TO RMBAE 


045364 


012423 








MOV 


(R4)+,(R3)* 


; STORE THE CONTENTS 


045366 


011413 








MOV 


<R4),(R3) 


;GET RMCS3 


045370 


104413 






7$: 


RESREG 




;RESTORE RO - R5 


045372 


000207 








RTS 


PC 


; RE TURN 



DP8 POINTER TO R2 
SAVE THE DRIVES REG'S 



TRE* 



ROUTINE TO SET THE INTERRUPT WITHOUT GETTING A 
CALL 

MOV <fDRVNUM,Rl .'DRIVE NUMBER TO R1 

JSR PC. SET. IE ;SET "IE" 

RETURN 



JRMueC RM05/?/2 PERf EXER 
PH/R^ DRIVER INITIALIZATION CODE 
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PAGE 



16 

5A-21 



stu 



1256 

1237 

1?38 

V39 

1240 

12A1 

'242 

12A3 

12U 

'245 

12A6 

12'.7 

1248 

1249 

1250 

1251 

1252 

1253 

1256 



1257 
1258 
1259 
1260 
1263 



1264 
1265 
1266 
'267 
1270 



1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 



04537A 

045376 

045402' 

045406 

045410 

045^14 

045416 

045422 

045430 

045432 

045434 

045436 

045442 

045444 



045446 
045447 
045450 
045451 
045452 
045453 
045454 
045455 



045456 
045460 
045462 
045464 
045466 
045470 
045472 
045474 



045476 
045500 
045502 
045504 
045506 
045510 
045512 
045514 

045516 
045520 
045522 
045524 
045526 
045530 
045532 
C45534 
045536 



010446 


SET. IE: 


MOV 


R4.-(SP) 


;SAVE R4 


01 3704 


G4C154 


MOV 


RMADR,R4 


; PICKUP ADDRESS OF RMCS1 


010164 


000010 


MOV 


R1.RMCS2(R4) 


.•SELECT DRIVE 


011446 




MOV 


(R4) ,-(SPl 


;READ RMCS1 

;SET THE "TRE" BIT OF THE WORD READ 


052716 


040000 


BIS 


*8IT14.(SP) 


000316 




SUAB 


(SP; 


.•ADJUST FOR DATO 
;SET "IE" 


112714 


000100 


M0V8 


*8ITC6,(R4) 


032764 


010000 000010 


BIT 


*8IT12,RMCS2(R4) 


;IS 'MED"=1? 
; YES— CLEAR "TRE" 


001002 




BNE 


1$ 


005726 




TST 




; CLEAN Off THE STACK 


000402 




BR 


2$ 


.•CLEAR 'TRE" 


112664 


000001 1$: 


M0V8 


(SP;*.1 (R4) 


012604 


2$: 


MOV 


(SP;*,R4 


.'RESTORE R4 


000207 




RTS 


PC 


.•RETURN TO CALLFR 



000 
000 
000 
000 
000 
000 
000 
000 



045540 
045560 
045600 
045620 
045640 
045660 
045700 
045720 



045540 
045560 
045600 
045620 
045640 
045660 
045700 
045720 

045540 
045560 
045600 
045620 
045640 
045660 
045700 
045720 
045740 



.•QUEUE COUNT 



QCNT; 



.BYTE 
.BYTE 
• BYTE 
.BYTE 
.BYTE 
.BYTE 
•BYTE 
.BYTE 



0 
0 
0 
0 
0 
0 
0 
0 



.•QUEUE 
OINPT: 



INPUT POINTERS 



.WORD 
.UIORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



QDRVO 
QDRV1 
QDRV2 
QDRV3 
0DRV4 
QDRV5 
QDRV6 
QDRV7 



.•QUEUE OUTPUT POINTERS 



DRIVE 0 
DRIVE 1 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 



DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 



0 
1 
2 
3 
4 
5 
6 
7 



QOUTPT: 


.WORD 


QDRVO 


•DRIVE 0 






.WORD 


QDRV1 


•DRIVE 1 






.WORD 


QDRV2 


■DRIVE 2 






.WORD 


QDRV3 


•DRIVE 3 






.WORD 


QDRV4 


•DRIVE 4 






.WORD 


QDRV5 


•DRIVE 5 






.WORD 


QDRV6 


•DRIVE 6 






.WORD 


QDRV7 


•DRIVE 7 




OSTART: 


.WORD 


QDRVO 


■DRIVE 0 START ADDRESS 




OS TOP: 


.WORD 


QDRV1 


■DRIVE 0 STOP ADDRESS & DRIVE 




.WORD 


0DRV2 


•STOP DRIVE 1— START DRIVE 


2 




.WORD 


QDRV3 


■STOP DRIVE 2— START DRIVE 


3 




.WORD 


QDRV4 


•STOP DRIVE 3— START DRIVE 


4 




.WORD 


QDRV5 


•STOP DRIVE 4— START DRIVE 


5 




.WORD 


QDRV6 


•STOP DRIVE 5— START DRIVE 


6 




.WORD 


QDRV7 


•STOP DRIVE 6— START DRIVE 


7 




.WORD 


QTERM 


■STOP DRIVE 7 
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^282 
'283 
1286 



1237 

1288 

1289 

1290 

V91 

1292 

1293 

129A 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1503 

1304 

1305 

1306 

130/ 

1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1351 

1332 



045540 
045560 
045600 
045620 
04 5640 
045660 
045700 
045720 



045740 
045742 
045746 
045750 
045752 
045754 
045756 
045762 
045766 
045770 
045772 
045774 
046000 
046004 
046006 
046010 
046012 
046014 



046016 
046022 
046024 
046032 
046034 



045740 



104412 
012702 
005022 
005022 
005022 
005022 
012703 
012701 
012122 
005303 
001375 
012703 
012701 
012122 
005303 
001375 
10^413 
000207 



045446 



000010 
045516 



000010 
045516 



.•DRIVE REQUEST QUEUES 



QDRVO 
QDRVI 
QDRV2 
QDRV3 
QDRV4 
QDRV5 
QDRV6 
QDRV7 
QTERM 



.8LKW 
.8LKW 
.8LKW 
.BLKU 
.8LKW 
.8LKW 
.8LKW 
.BLKW 



10 
10 
10 
10 
10 
10 
10 
10 



ROUTINE TO CLEAR ALL Of THE REQUEST QUEUES 



CALL 



JSR 



PC.CLRQUE 



1$: 



2$: 



SAVREG 




SAVE RO - R5 


MOV 


*QCNT,R2 


•ZERO THE QUEUE COUNTS 


CLR 


(R2)* 


■DRIVES 0 S 1 


CLR 


(R2)* 


DRIVES 2 6 3 


CLR 


(R2)* 


DRIVES 4 8 5 


CLR 


<R2)* 


DRIVES 6 8 7 


MOV 


*8..R3 


■MOVE THE STARTING 


MOV 


*QSTART,R1 


•ADDRESS OF THE QUEUE INTO 


MOV 


(R1)>.(R2)* 


;THE QUEUE INPUT POINTER 


DEC 


R3 




BNE 


1$ 




MOV 


*8..R3 


■MOVE THE STARTING ADDRESS 


MOV 


*QSTART,R1 


;0F THE QUEUE INTO THE 


MOV 


(R1)*.(R2)* 


; QUEUE OUTPUT POINTER 


DEC 


R3 




BNE 


2$ 




RESREG 


.•RESTORE RO - R5 


RTS 


PC 





EMPTy THE QUEUE SPECIFIED BY R1 



CALL 



MOV 

JSR 



DRVNUM.RI 
PC.EMPTYQ 



.•DRIVE NUMBER TO Rl 



105061 045446 
006301 

016161 045456 045476 

006201 

000207 



EMPTyO: CLR8 
ASL 
MOV 
ASR 
RTS 



QCNT(RI) 
Rl 

QJNP7(R1).Q0UTPT(R1) 
Rl 
PC 



.•CLEAR NUMBER OF ITEMS IN QUEUE 

;SET OUTPUT QUEUE POINTER INPUT POINTER 



ROUTINE TO PUT A REQUEST IN QUEUE 
CALL 



MOV 
MOV 
JSR 

RETURNI 
RETURN2 



ffDRVNUM.RI 

*DP8,R2 

RO.DRVQUE 



DRIVE NUMBER 

ADDRESS OF PARAMETER BLOCK 
GO PUT REQUEST IN QUEUE 
RETURN HERE IF QUEUE IS FULL 
RETURN HERE IF REQUEST IS IN QUEUE 





1 55761 


r 00010 


045446 




CMP8 




vw 1 He 1 
































ASL 


V~ wV 


010P71 


045456 






MOV 


046060 


062761 


000002 


045456 




ADD 


046066 


026161 


045456 


045520 




CMP 


046074 


001003 








BNE 


046076 


016161 


045516 


045456 




MOV 


046104 


006201 






1$: 


ASR 


046106 


005720 








TST 


046110 


000200 






2$: 
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153? 

'334 

1355 

1336 

1337 

1338 

^339 

1340 

1341 

1^2 

1343 

i3h4 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1558 

1359 

1360 

1561 

1562 

1563 

136a 

1365 

1566 

1367 

1368 

1569 

1370 

1371 

1372 

1573 

1374 

1375 

1376 

1377 

137^' 

1579 

1380 
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;JS QUEUE FULL? 

;8R IF VES-TAKE RETURNi 

.■INCREMENT QUEUE COUNT 



*10.QCNT(R1) 
2$ 

QCNT(RI) 
R1 

R2,aQINPT(R1) ;PUT THIS REQUEST IN QUEUE 
*2.QINPT(R1) .-UPDATE THE QUEUE POINTER 
i2JNPT(R1).QST0P(R1) ;TJME TO RESET THE POINTER 
1$ ;8R IF NO 

QS'ART{R1}.QINPT(R1) ;YES— RESET POINTER 
R1 

(RO)* .-TAKE RETURN 2 

RO .-RETURN TO USER 



ROUTINE TO GET THE "DPS* 
CALL 



ADDRESS OF NEXT REQUEST IN QUEUE 



046112 
046114 
046120 
046122 
046124 
046130 
046152 



005002 
105761 
001404 
006501 
017102 
006201 
000207 



045446 
045476 



MOV #DRVNUM,R1 
JSR PC.GETREQ 
RETURN 



GETREQ: CLR R2 

TST8 QCNT(RI) 

BEQ 2$ 

1$: ASL R1 

MOV aQ0UTPT(R1),R2 

ASR Ri 

2$: RTS PC 



DRIVE NUMBER TO RI 

GO GET THE REQUEST 

R2="DP8" ADDRESS OF THE REQUEST 

R2=0 IF NO REQUEST IN QUEUE 



;IS THERE ANY REQUEST IN QUEUE? 
;N0 

.-PICKUP "DPS" POINTER FOR THIS DRIVE 
.-RETURN TO USER 



ROUTINE TO 'POP" THE REQUEST FROM QUEUE 
CALL 



MOV 

JSR 

RETURN 



0461 54 


105361 


045446 




POPQUE : 


DECS 


046140 


006501 








ASL 


046142 


017102 


045476 






MOV 


046146 


005071 


045476 






CLR 


C46152 


062761 


000002 


045476 




ADD 


046160 


026161 


045476 


045529 




CMP 


046166 


001003 








BNE 


0461 70 


016161 


045516 


045476 




MOV 


046176 


006201 






'$: 


ASR 


046200 


000207 








RTS 



#DRVNUM.R1 .-DRIVE NUMBER TO PI 

PC.POPQUE .-CALL TO REMOVE REQUEST 

;R2=ADDRESS OF DPS REMOVED 

.-DECREMENT QUEUE COUNT 



QCNT(RI) 
RI 

aOOUTPT{R1).R2 
aQOUTPT(RI) 
*2.Q0UTPT(R1) 



.-GET THE "DPS" POINTER 

.-REMOVE DP8 ADDRESS FROM THE QUEUE 

.UPDATE THE QUEUE POINTER 

Q0UTPT(R1).QST0P(R1) ;T1ME TO RESET THE POINTER? 

1$ ;N0~8R TO EXIT 

QS^ART{R1).Q0UTPT(R1) ; YES— RESET THE POINTER 
RI 

PC .-RETURN TO USER 
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S£0 0?00 



1 

2 




3 
4 




5 


000001 


6 


000002 


? 


000003 


8 


000004 


9 


000006 


10 


000010 


n 


000C1 1 


!2 


000012 


13 


000014 


"4 


000016 


15 




16 




17 




'8 


00C020 


19 


000022 


20 


000024 


21 


000026 


22 


000027 


23 


000050 


24 


000052 


25 


C00056 


26 


000042 


2^ 


000046 


28 


000052 


29 


000056 


30 


000060 


31 


000064 


32 


U00066 


53 


000072 


34 


000074 


55 


000076 


56 


000100 


37 


000102 


58 


000104 


59 


000106 


40 


00011 0 


41 




42 




45 




44 


000112 


45 


0001 1 5 


46 


000114 


47 


0001 1 5 


48 


000116 


49 


000120 


50 


000122 


51 




52 




53 




54 


000124 


55 


000126 


56 


000150 


57 


0001 32 



.S8TTL DATA. CONTROL, t STATUS BLOCKS 



.•BLOCK LOCATION EQUATE STATEMENTS 



$FMT 

SCOMND 

SPSEL 

SWCNT 

S8UF 

$SEC 

$TRK 

$CYL 

$REG 

iTATUS 



- 1 



$FMT*1 

$FMT*2 

$FMT*3 

$FMT*5 

$FMT*7 

$FMT*10 

$FMT*11 

$FMT*13 

$FMT+15 



FMT.HCJ,ECJ OR OFFSET CODE 

OPERATION CODE 

PORT SELECT t BITS A16. A17 

WORD COUNT (2'S COMP) 

SUFFER ADDR OR REGISTFR TABLE POINTER 

SECTOR ADDRESS OR 1ST REG ADDR 

TRACK ADDRESS OF LAST REG ADDR 

CYLINDER ADDR 

REGISTER STORAGE (IF ERROR) 
STATUS WORD (SET BY DRIVER) 



.•DRIVE'S HISTORY AND CURRENT INDICATOR STORAGE EQUATES 



SWRDL 

SSSfcC 

SCODE 

SPACK 

SPREVO 

SPATTC 

SPREVA 

SENDAT 

SENDSK 

SOPERC 

SPOSIT 

SWTOFL 

SWRITN 

SRDOFL 

SREAD 

STOTAL 

SSOFT 

SHARD 

$SKI 

SMISPO 

SPASSC 

SFAIR 

SHLDUC 



$FMT*17 
SWRDL ♦ 2 
SWRDL +4 
SWRDL +6 
SWRDL +7 
SWRDL* 10 
SWRDL 2 
SWRDL-' 16 
SWRDL ♦ 22 
SWRDL « 26 
SWRDL ♦ 32 
SWRDL* 36 
SWRDL +40 
SWRDL *44 
SWRDL *4 6 
SWRDL *52 
SWRDL +54 
SWRDL +56 
SWRDL *60 
SWRDL *62 
SWRDL +64 
SWRDL +66 
SWRDL +70 



WORD COUNT LENGTH (POSITIVE) 

SECTOR SIZE FOR CURRENT OPERATION (256. OR 258.) 
PRESENT COftlAND SELECTION CODE 
WRITE DATA PACK INDICATOR 
PREVIOUS COMMAND SELECTION CODE 
PATTERN CODE 

PREVIOUS ADDRESS- TRK, SEC, CYL (DOUBLE WORD) 

END OF PASS DATA COUNT (DOUBLE WORD) 

END OF PASS SEEK COUNT (DOUBLE WORD) 

OPERATION COUNT (DOUBLE WORD) PER PASS 

SEEK COUNT (DOUBLE WORD) 

TOTAL WORDS WRITTEN OVERFLOW COUNT 

TOTAL WORDS WRITTEN COUNT (DOUBLE WORD) 

TOTAL WORDS READ OVERFLOW COUNT 

TOTAL WORDS READ COUNT (DOUBLE WORD) 

TOTAL ERRORS (ALL TYPES) COUNT 

•SOFT' ERR(W COUNT 

•HARD' ERROR COUNT 

'SKI* ERROR COUNT 

PROG DETECTED MIS-POSITIONING ERROR COUNT 
PASS COUNTER 

OPERATION QUEUE 'FAIRNESS* COUNT 
HOLD WORD FOR 'RELBUF' ROUTINE 



; INDEX EQUATES TO THE NEXT OPERATION PARAMETERS 



SNCODE 

SNPATC 

SNSEC 

SNTRK 

SNCYL 

SNEXT 

SFIRST 



= SWRDL +72 
-- SNCODE + 1 
= SNCODE +2 
= SNCODE +3 
= SNCODE +4 

- SNCODE +6 

- SNCODE +10 



NEXT OPERATION CODE 
NEXT PATTERN 
NEXT SECTOR 
NEXT TRACK 
NEXT CYLINDER 

PARAMETER SELECTION INDICATOR 
FIRST OPERATION INDICATOR 



.•INDEX EQUATES FOR MAXIMUM/MINIMUM ADDRESSES 



MAXCYL 
MINCYL 
MAX TRK 
MINTRK 



= SNCODE +12 
= MAXCYL +2 
= MAXCYL +4 
- MAXCYL+6 



MAXIMUM CYLINDER ADDRESS 
MINIMUM CYLINDER ADDRESS 
MAXIMUM TRACK ADDRESS 
MINIMUM TRACK ADDRESS 
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SEO 0201 



58 


0001 34 


59 


000156 


60 




61 




62 




63 


000140 


64 


000142 


65 




66 




67 




68 


000144 


69 








71 




72 


002126 


73 




74 




75 




76 


002136 


77 


002140 


78 


002142 


79 


002144 


80 


002146 


81 


002150 


82 


0^21 52 


83 


0021 bU 


84 


002156 


95 


002160 


86 


002162 




002164 


88 


002166 


89 


002 1 70 


90 


002172 


91 


0021 7^ 


92 


002176 


93 


002200 


94 


002202 


95 


00£:204 


97 


002206 


98 


002210 


100 




112 





046202 
046204 
046216 
046220 



000 
050340 

001 



050414 
050416 

050430 052552 
050432 



052626 002 
052630 

052642 054764 



000 



000 



000 



MAXSEC = MAXCYL^IO 
MINSEC = MAXCYL*12 



.•MAXIMUM SECTOR ADDRESS 
.-MJMMUM SECTOR ADDRESS 



.•PACK SERIAL NUMBER CONTAINED IN DFC144 FILE 



$PSNL 
SPSNM 



= MAXCYL + U 
- $PSNL*2 



;LS8'S OF SERIAL NUMBER (5 OCTAL DIGITS) 
.•MSB'S OF SERIAL NUMBER (5 OCTAL DIGITS) 



;DEC14A BAD SECTOR ADDRESS STORAGE AREA INDEX EQUATE 

$8DSEC - $PSNL+4 ;8AD SECTOR STORAGE TABLE PLUS TERMINATOR 

;DRIVE (MBA) SERIAL NUMBER AREA INDEX EQUATE 

$M9ASN = $8DSEC*<126.«8.>*2 .-DRIVE (MBA) SERIAL NUMBER 



;RH/RM REGISTER EQUATES 



$RMCS1 

SRMWC 

SRMBA 

$RMDA 

$RMCS2 

SRMDS 

SRMERI 

$RMAS 

SRMLA 

SRMDB 

SftMMRI 

SRMDT 

SRMSN 

SRMOF 

SRMDC 

$RMHR 

$RMMR2 

SRMER2 

SRMEC1 

$fiMEC2 

SRMBAE 

$RMCS3 



$MBASN*10 

$RMCS1+2 

$RMCS1+« 

$RMCSl+6 

$RMCS1*10 

$RMCS1*12 

JRMCSUU 

$RMCSU16 

$RMCS1-»20 

$RMCS1 +22 

$RMCS1*24 

$RMCS1*26 

$RMCS1*30 

$RMCS1*32 

SRMCS1+34 

$RMCS1*36 

$RMCS1*40 

$RMCS1+42 

$RMCS1+44 

$RMCSU46 

$RMCS1*50 

$RMCS1*52 



;RM REGISTER STORAGE 



.-BLOCK FOR DRIVE 0 
DRIVEO: .BYTE 0.0 
.BLKH 5 

.WORD .♦$RMCS1-$REG 
.8LKB $RMCS3-$REG 

.-BLOCK FOR DRIVE 1 
DRIVE1: .BYTE 1.0 
.6LKW 5 

.WORD .*$RMCS1-$REG 
.8LK8 $RMCS3-$REG 

;8L0CK FOR DRIVE 2 
DRIVE2: .BYTE 2.0 
.8LKW 5 

.WORD .♦$RMCS1-$REG 



.•DRIVE NUMBER 0 



;DRIVE NUMBER 1 



.•DRIVE NUMBER 2 
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SEC 020k 





052644 






055040 


003 




055042 






055054 


0571 76 




055056 






057252 


004 




057254 






057266 


061410 




057270 






061464 


005 




061466 






061 "500 


063622 




061502 






063676 


006 




063700 






063712 


066034 




063714 






066110 


007 




066112 






066124 


070246 




0661 26 










1 u 






115 






''16 


070322 


000 


'17 


070323 


000 


118 


070324 


000 


119 


070325 


000 


120 


070326 


177776 


121 


070330 


10^066 


''22 


C70332 


000 


123 


070333 


000 


124 


070334 


000000 


125 


070336 


070342 


126 


070540 


000000 


127 






128 


070542 





000 



000 



000 



000 



.8LK8 $RMCS5-$REG 

;8L0r< FOR DRIVE 3 
^rti\/E3: .8YTE 3.0 
.8LKW 5 

.WORD .♦$RMCS1-$RfG 
.8LK8 $RMCS3-SREG 

.•BLOCK FOR DRIVE 4 
DRIVE4: .8YTE 4.0 
.8LKW 5 

.WORD .♦SRMCSI-SREG 
.8LK8 $RMCS3-$REG 

.•BLOCK FOR DRIVE 5 
DRIVE5: .BYTE 5.0 
Bt KW 5 

!w6rd .♦srmcsi-sreg 
.8lk8 $rmcs3-$reg 

.•block for drive 6 

DRIVE6: .BYTE 6,0 

BLKW 5 

iwORD .♦$RMCS1-$REG 

.8LK8 $RMCS3-$REG 

;8L0CK FOR DRIVE 7 

DRIVE7: .BYTE 7.0 
» .BLKW 5 

.WORD .+$RMCS1-$REG 
.BLKS $RHCS3-$REG 



.•DRIVE NUMBER 3 



.•DRIVE NUMBER 4 



.•DRIVE NUMBER 5 



.•DRIVE NUMBER 6 



.•DRIVE NUMBER 7 



.•GENERAL PURPOSE PARAMETER BLOCK 



GENDP8: .BYTE 
.BYTE 
.BYTE 
.BYTE 
.WORD 
.WORD 
• BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 



0 
0 
0 
0 
-2 

CYLNDR 
0 
0 
0 

GENREG 
0 



GENREG: .8LKW 24 



DRIVER PARAMETER BLOCK. DRIVE * 

OFFSET VALUE OR FMn6. HCI OR ECI 

COMMAND CODE 

PSEL. A16 AND A17 

WORD COUNT (NEG) 

BUFFER ADDRESS 

SECTOR ADDRESS 

TRACK ADDRESS 

CYLINDER ADDRESS 

ADDRESS TO SAVE ALL RH/RM REG'S 

STATUS WORD 

.•REGISTER STORAGE 



CZRMUBO RM05/^/2 PERF EXER 
ERROR MESSAGES 

1 





1)70/. 1 P 


1 22 




070522 


125 


s 


■< 1 5 


A 
\j 


070560 


1 1 5 


7 


07061 5 


101 


B 

O 


070651 


1 ■'2 


9 


070724 


125 


10 


070767 


106 


1 T 


071022 


120 


c 




117 


T? 


071 125 


104 




071 1 50 


116 




071 204 
071225 


110 


16 


104 




071256 


127 


18 


071331 


127 


1*5 


071410 


110 


20 


C71456 


110 


21 


071537 


106 


22 


071 564 


110 


23 

C -J 


071621 


115 




071653 


117 


25 


071716 


104 


26 


071751 


120 


27 


072026 


127 


28 


072070 


1 1 1 


29 


072126 


127 




072157 


104 


31 


072241 


122 




072310 


102 


33 


072354 


104 




072435 


103 


35 


072502 
072577 


105 


36 


105 


37 


072665 


102 


38 


072737 


123 


39 


072775 


120 


40 


073040 


104 
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.S8TTL ERROR 


1 1 n 


0^0 


EMI : 


.ASCI 


116 

1 1 0 


■"05 


EM2: 


.ASCI 


1 01 


12^ 


EM3: 


.ASCi 


101 


1 23 


EM4: 


• ASCI 


10/. 


104i 


EM5: 


.ASCI 


1 10 




EM6: 


.ASCI 


116 


103 


EM10. 


.ASCI 


101 


1 24 


EMU . 


.ASCI 


10s 


1 22 


EM12. 


.ASCI 


120 


105 


EMI 3. 


.ASCI 


122 


1 1 1 


EMI 4 


.ASCI 


1 1 7 


040 


EMI 5 


.ASCI 


105 


101 


EM20 


.ASCI 


101 


1 24 


EM21 


.ASCI 


122 


1 1 1 


EM22 


.ASCI 


122 


1 1 1 


EM23. 


.ASCI 


105 


101 


EM24 


.ASCI 


105 


101 


EM25 


.ASCI 


117 


122 


EM26 


.ASCI 


105 


101 


EM27 


.ASCI 


1 1 1 

1 1 1 


123 


EM30 


.ASCI 


120 


105 


EM31 


.ASCI 


122 


1 1 1 


EM3? 


.ASCI 


101 


122 


EW^3 


.ASCI 


122 


111 


EM34 


.ASCI 


1 16 


126 


EM35 


.ASCI 


122 


111 


EM36 


.ASCI 


101 


124 


EM37 


.ASCI 


110 


040 


EM40 


.ASCI 


125 


123 


EM41 


.ASCI 


101 


124- 


EM42 


.ASCI 


101 


1 lb 


EM43 


.ASCJ 


122 


122 


EM44 


.ASCI 


103 


103 


EM45 


.ASCI 


125 


123 


EM46 


• ASCI 


105 


105 


EM50 


.ASCI 


122 


117 


EM51 


• ASCI 


122 


111 


EM60 


.ASCI 
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SEO 0205 

MESSAGES 

/RH CONTROLLER INTERRUPT OCCURRED (RMAS=0)/ 
' /UNEXPECTED ATTENTION OCCURRED/ 
' /MASSBUS PARITY ERROR (MCPE = n/ 
' /MASSBUS PARITY ERROR (PAR=1)/ 

/ADDRESS PLUG CHANGE BIT SET/ 

/RH CONTROLLER DIDN'T RESPOND ^0 ADDRESSING/ 
' /UNCORRECTABLE MASSBUS PARITY ERROR/ 
' /FATAL MASSBUS PARITY ERROR/ 

/PERSISTENT DEVICE UNSAFE/ 

/OPERATION NOT COMPLETED WITHIN TIME LIMIT/ 
■ /DRIVE WENT OFFLINE/ 
' /NO RESPONSE TO PORT REQUEST' 
' /HEADER CRC ERROR/ 
' /DATA CHECK CDCK') ERROR/ 

' /WRITE CHECK ERROR - DATA CHECK CDCK') SET/ 

' /WRITE CHECK ERROR - DATA CHECK CDCK*) NOT SET/ 

' /HEADER READ ERROR - 'FMT' BIT DROPPED/ 

' /HEADER READ ERROR - HEADER COMPARE CHCE') ERROR/ 

' /FORMAT ERROR CFER')/ 

' /HEADER COMPARE CHCE') ERROR/ 

' /MISCELLANEOUS DRIVE ERROR/ 

' /OPERATION INCOMPLETE COPI') ERROR/ 

: /DRIVE TIMING CDTE') ERROR/ 

: /PARITY ('PAR') ERROR AFTER OPERATION STARTED/ 

: /WRITE CLOCK FAILURE CWCF') ERROR/ 

: /INVALID ADDRESS CIAE') ERROR/ 

: /WRITE LOCK CWLE') ERROR/ 

: /DATA CHECK CDCK') SET DURING WRITE CHECK COMMAND/ 

: /RH CCWTROLLER Oft UNI8US TRANSFER ERROR/ 

: /BUS ADDRESS OR WORD COUNT INCORRECT/ 

: /DATA COMPARE ERRORS - NO OTHER ERROR (S) DETECTED/ 

: /CAN'T MATCH DATA READ WITH A PATTERN/ 

: /ERROR BIT(S) SET. BUT NO ERROR SIGNALED BY THE RH CONTROLLER/ 

: /ECC LOGIC FAILURE - POSITION REGISTER VALUE NOT VALID/ 

: /BUS ADDRESS AND WORD COUNT NOT CONSISTENT/ 

: /SEEK INCOMPLETE CSKI') ERROR/ 

: /PROGRAM DETECTED POSITIONING ERROR/ 

' /DRIVE UNSAFE ERROR/ 



ZSMifiO RM05/^/2 PEW EXER 
FRRLR MESSAGES 



l«WCRO VOA.OO 



J 16 

4-APR-81 01:^2:kl PAGE 5^ 



073063 
073070 
073UA 
07317? 
073231 
0732A0 
07330A 

8 073342 

9 073412 
10 075440 
12 073510 
14 



1 
2 
3 
4 
5 
6 
7 



122 


ll*". 


101 


DHl : 


.ASCJZ 


104 


122 


111 


DH2: 


.ASCIZ 


104 


122 


111 


DH3: 


.ASCIZ 


104 


122 


111 


DH4: 


.ASCJZ 


044 


122 


115 


DH6: 


.ASCIZ 


104 


122 


126 


DH14: 


.ASCII 


123 


115 


115 




.ASCIZ 


122 


115 


127 


0H15: 


.ASCII 


122 


115 


104 




.ASCIZ 


122 


115 


123 


DH16: 


.ASCIZ 


^22 


115 


102 


DH17; 


.ASCIZ 






.EVEN 





RME/<? RMMR2 RMAS/ 
BAD/ 



/RMAS/ 

/DRIVE RMDS RMER1 
/DRIVE REG ADR DATA/ 
/DRIVE REG ADR GOOD 
/SRMADR/ 

/DRV RMCS1 RMCS2 RMDS RMERl / 
/RMrR2 RMER2 RMEC1 RMEC2/<CRLF> 
/RMWC RM8A RMDA RMAS RMLA / 
/RMD8 RMMR1 RMDT/<CRLF> 

/RMSN RMOF RMDC RMHR STATUS/<CRI f . 
/RM8AE RMCS3/<CRLF> 



ZRMLJBO RM05/5/2 PE^f EXER 
ffif<G« MESSAGES 

' 073530 001322 000000 

2 073534 001220 C40016 

3 075552 001220 044 712 

4 073562 001220 045152 

5 073574 001272 000000 

6 075600 002136 002146 

7 073622 0021 40 002142 

8 075644 002166 002170 
'0 073660 002206 002210 



MACRO V04.00 4-APR-81 





nTI • 




0451 30 


DTP • 






UQRD 


DT4: 


.WORD 




DT6: 


.WORD 


002150 


DTK: 


.WORD 


002144 


DT15: 


.WORD 


002172 


DT16: 


.WORD 


000000 


pn7: 


.WORD 
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SEQ 0^0^ 



ATTN.O 

DRIVE ,RMERRS.RWERRS*2.RMERRS*4,RMERRS*6,ATTN,0 

DRJVF.RD.ADR.RD.WRD.O 

DRIVE,WRT.AD,WRT.WD,RD.WRD,0 

SRMADR.O 

$RMC SI . SRMC S2 , SRWDS , $RMER 1 , $RW1R2 , $RriER2 . $RME C 1 , IRME f 2 ,0 
SR^-^IWC . $RM8A . SRMDA . SRMAS , $RI>1L A, $RMD8 , tRMMRI , $R«DT ,0 
IRMSN , $RM0 F . $RMD C , SRMHR , $ TAT US , 0 
$RnBAE,$RMCS3,0 



RM05/3/2 PERF EXER MACRO V04.00 4-APR-81 

FRROR MESSAGES 



1 

1 


5000 


1 5A 


1 55 


157 


1 rKi5r 
L \ r*C\. 


Acr I 
.AM i 


c 


A777rkX 

0^3/^U6 


f\J A 

04U 


A/ A 


1 5A 


1 rM5D 
L \ r*cy 


AC r 1 


5 




AC 5 

U5<: 


A/ A 


1 AS 


1 I m5c 


ACT r 


<• 


A77 7^7 

U'^ 5^o3 


1 AC 


15 5 


1 55 
1 CC 


1 r kim7 

L iiMri3 . 


A c r I 


c 


r\7777<L. 
A7/ 


A/ A 


1 5/ 


AAA 




• ASCI 


o 


1 5A 


155 


1 57 
c3 


LiNN3. 


.ASCI 


f 


A7/ m 7 


A. A 


1 57 


AAA 




• ASCI 


B 

C 


r>7/ r>55 


A/ A 


AAA 


1 5A 
1 cU 


ciNP3. 


.ASCI 


Q 


(J/hUh I 


157 


1 5A 


1 ni 


I INS3. 


.ASCI 


lU 


n7/ 


A/ A 


AAA 


1 U J 


LINEN3: .ASCI 


' 1 


A7/ A71 
\JfH\Jf 1 




A/ A 


1 A1 


LINA3. 


.ASCI 


1 d 


A7/ 1 in 


A/ A 


AAA 


1 5A 

1 CH 


LINT3. 


.ASCI 


1 3 


A7/ 1 on 


A/ A 


r\LC\ 
\)h\J 


1 55 
1 CC 


LINCA3: .ASCI 


1 L 


n7/ 1 x^ 

\JfH\jl 


1 55 


1 1 *i 

1 1 5 


1 OA 

1 \lH 


LINDA3: .ASCI 


1 J 


(\7i 1 LC\ 
\JI h\ h\j 


1 55 


11"; 


1 np 

1 Uc 


LI^e3. 


.ASCJ 


lO 


n 7/ 1/7 




\)h\J 


1 Cc 


LINU3. 


.ASCI 


1 7 

1 f 


n7Ai An 

[J 'HI 0\J 




1 ?A 

1 CH 


101 


LINST3: .ASCI 


I O 


fi7A1 7A 


1 5? 


1 5A 

1 CH 


101 


LINSS3: .ASCI 


10 

1 y 


\JIHC 1 U 




1 CJ 


iOa 


LlNn4 


.ASCI 




r TL 0 5A 


AAA 


\JH\) 


157 

1 cr 


LINS4 


.ASCI 


oi 
c 1 


(VTL 5/ 5 


AAA 


\JH\J 


1 ni 


LINX4 


.ASCI 


cc 


^7A 57A 
\JfHcf H 


1 n7 


117 


117 


LIND5 


.ASCI 


OX 

CJ 


(\7L x^ n 


A An 


nAn 


1 n5 

1 Uc 


LINB5 


.ASCI 


OL 

c** 




nAn 


nAn 


1 57 

1 Cf 


LINP5 


• ASLl 


5C 
CJ 


rt7A XL 5 


1 in 


in"; 


1 ni 


LINS5 


.ASCI 


. O 


n7A77^ 

\j( H^fJ 


1 55 


■115 

1 5 


ins 

1 yjj 


LINEP5: .ASCI 


-37 


\JfHH\}j 


nAn 


nAn 


1 55 
• cc 


LINE05: .ASCI 


CO 


fl7AA 1 7 


1 57 


1 n'5 

1 U5 


in7 


LlNe6 


.ASCI 


50 


n7AA';5 

U' *t*t Jc 


1 57 


in'; 

1 U5 


in7 

1 \jj 


LINC6 


• ASCI 


7n 

jU 




1 n7 


117 

1 1 f 


1 55 

1 cc 


LING6 


.ASCI 


71 

J 1 


n7A'\i 7 


nAn 


(\L(\ 
\)H\J 


1PP 
1 cc 


LINR6 


.ASCI 


■7 J 

JC 


n7A^7i 

\JfHJJ \ 


1 5'» 


1 1 A 


107 


LINU06: .ASCI 


77 

J J 


n7A^^A 

\JfHJjO 


\JH\J 


nAn 


1 5A 

1 CH 


LIN7M 


.ASCI 


77 




1 5A 


117 
1 1 f 


1 5A 

1 CH 


LIN7P 


.ASCI 


xn 

JO 


HOC 1 


nAn 


nAn 


1 5A 

1 CH 


LIN7S 


• .ASCI 


XQ 


n7AAA'? 
\jr hOhj 


1 5A 


117 


1 5A 
1 Ch 


LIN7T 


.ASCI 


LC\ 
*tU 


074661 






1?7 

' C ' 


LIN70X: .ASCI 


*t 1 


n7AA71 


nAn 


1?7 


55 
^ c 


LIN7X 


• .ASCI 


L 5 


n7A7nA 


nAn 


nAn 


1 55 
1 ^c 


LIN70R: .ASCI 


•♦J 


n7A71 A 


C\L(\ 

\)H\J 


1 57 
1 C ' 


1 55 
1 cc 


LIN7R 


.ASCI 


LL 


n7A77? 

\JfHf JC 


in*; 
1 \jj 


1 55 
1 cc 


1 ?? 
1 cc 


LIN8M 


.ASCI 


•♦J 


07A7<;5 

n 7c (VIA 


inA 

1 \JH 


ini 


1 ?A 

1 CH 


LlN9e 


: .ASCI 


HO 


nAn 


nAn 


040 

\JH\J 


LIN9H 


: .ASCI 


L7 
H f 


0750^1 

Ur J\JJ 1 


1 1 A 

1 1 H 


117 


107 




.ASCI 


Lfl 
HO 




1 1 A 


117 

1 1 r 


107 


LIN9I 


: .ASCI 


AO 


n/5n77 


1 PA 

1 CH 


117 


IPA 
1 Ch 


LIN9E 


: .ASCI 




ft751PA 

V' J 1 cO 


1 54 

1 CH 


110 
1 1 v 


105 
1 \jj 


LIN9G 


: .ASCJ 


CI 

J 1 


0751 5A 

W f 3 1 JH 


in5 


1 5? 


1 PP 
1 c c 


LIN10A: .ASCI 


^5 




nAn 

\JH\J 


111 

1 1 1 


1 1 A 

1 1 0 


LIN108: .ASCI 


CT 

3 J 




ins 

1 v5 


1 55 
1 cc 


1 55 
1 c c 


LIN10C: .ASCI 


•;a 

5H 


075312 


in5 


in7 

1 yjj 


107 

1 J J 




.ASCI 


J J 


075354 


105 


103 


103 


LIN10H: .ASCI 


56 


075403 


101 


104 


104 




.ASC! 


57 


075437 


103 


117 


116 


LINllH: .ASCI 


58 


075512 


101 


104 


104 


LIN11 


: .ASCI 


59 


075533 
075502 


101 


104 


104 


LIN11A: .ASCI 


6C 


040 






BLNKS4: .ASCI 
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/PRSNT COMMAND- / 
/ PREV C0MMAND= / 
a* ERROR AT BAD TRACK/SEC TORd 
/ERROR AT C/ 

/ T/ 

/PRSNT ADDR= C/ 

/ S/ 

/ "pREV ADDR= C/ 
/START CYL= / 
/ END CYL= / 
/ ACTUAL CYL= / 
/ TRK= / 
/ R«DC= / 
/RMDA= / 
/mik- / 
/ RMWC= / 
/START TRK= / 
/START SEC= / 
/BUFFER ADDR= / 
/ WRD CNT= / 

/ ACTUAL NMBR WRDS XFRD= / 
/GOOD DATA= / 
/ BAD DATA= / 
/ WORD POS= / 

/HEADER FROM ERROR SECTOR= / 
/RMEC1= / 
/ RMEC2= / 

/SECTOR IS ECC CORRECTABLE / 
/SECTOR READ CORRECTLY / 
/CORRECTED ON / 
/ RETRIES/ 

/UNCORRECTABLE AFTER / 
/ TOTAL MISPOS ERR= / 
/TOTAL SEEKS= / 
/ TOTAL SKI ERR= / 
/TOTAL ERRORS:/ 
/ UOFL:/ 
/ WRDS WRITN:/ 
/ ROFL:/ 
/ WRDS READ:/ 
/ERROR DURING RETRY/ 
/DATA COMPARISON ERRORS/ 
/ GOOD BAD/<CRLF> 

/LOC DATA DATA/<CRLF> 

/LOC DATA/<CRLF> 
/TOTAL COMPARE ERRORS= / 
/THE DATA COMPARED OK/<CRLF> 
/ERROR BURST BEGINS AT WORD / 
/ IN DATA FIELD OF ERROR SECTOR/<CRLF> 
/ERROR WAS NOT IN THE DATA READ - /<CRLF> 
/ECC CORRECTION CAN'T BE PERFORMED/ 
/ECC CORRECTION RESULTS/<CRLF> 
/ADDR BAD CORRECTED /<CRLF> 
/CONTENTS Of ERROR SECTOR (REPORTED AB0VE)/<CRlF> 
/ADDR HEADER/<CRLF> 
/ADDR DATA/<CRLF> 
I / / 



RRUR MESSAGES 



MACRO V04.00 



M 16 

4-APR-81 01:42:23 PAOE 59-1 



^/ 07S553 

62 07S5S4 

63 075555 

64 075557 



040 
040 
040 
122 



000 
105 



124 



BLNKS3: .ASCII 
BLNKS2: .ASCII 
BLNKS1: .ASCIZ 
LINXS: .ASCIZ 



/ / 
/ / 
/ / 

/RETRIEVED 



BV A RDHO COMMAND/ 



:ZRMUBO RH05/^/<^ PERF EXER KWCRO VOA.OO 4-APR-8 

TELETYPE MESSAGES 



1 
1 








CO T T 1 


TFl F T 

1 cue 1 


c 

J U' JO 1 J 


n77 


nnn 




ni ic Q • 

UUC J • 


ACf I 




07^ 








A^r I 


n7^Ai 7 


KJjH 


noo 




r niMMA • 


A^r I 


O U ' jOc I 




nnn 




DACU • 
■ 


A?r t 




oil 


/inn 




TAR • 


A<;r I 

• MO L J 


ft n7^A3^ 


inz. 


1 pp 
1 c c 


1 1 1 

1 1 1 




A?r I 






117 


1 nA 


1 IKlTnF F 


A^r I 






1 1 7 


1 1 A 




A^r I 


11 n7«;^Si 




1 1 ^. 


1 1 7 

1 1 f 




A^r I 


IP n7'>^7A 

1 C U' JD ' o 




1 01 


1 1 L 




A?r I 




oao 


1 1 ^. 


1 1 7 




A^r I 


1^ n7'>7^*» 

1 *♦ \J f J 1 H J 


0^0 


1 16 

1 1 0 


1 1 7 

1 1 f 




A^r I 

• MOL J 


1 ^ \J 1 J 1 DC 


0^0 


116 

I 1 0 


1 1 7 


MOT AWI 


A^r I 

« MOL J 


1 O u ' ul/V 1 




1 P5 

1 C J 


1 16 


Kin 1 ^AF 


A^r I 

• MOL J 


1 7 n7^.ni 1 




1 1 L 


1 1 7 


1 nr>F\/ • 


A^r I 


I O U r Ov.^O 


pon 

CUV 


1P5 
1 c J 


116 
1 1 0 


c VCTAT 


ACf I 


1Q 07^04^ 


1PP 

1 cc 


115 


060 








1PP 
1 CC 


115 


060 




• M<JL i 


PI n7A0Sft 

C 1 Vf 


1PP 

1 c c 


115 


060 




A5f I 

• MOV. i 


pp n7^=>fv.^ 


pon 


01 P 


05P 

w JC 




A^r I 

• MO I. i 


p'! n7^>ip^ 


05? 


OSP 


05P 

w JC 




A^f I 

• MOL J 




05P 


OSP 


05P 


STARS : 


A5f I 


PS 07^>1ft4 


POO 


10^ 


I C w 


5IJMHD ■ 


ASf r 


C\J \Jf\jCJ\J 


007 


077 


106 


1 »\3 


A5f F 

• MOW i 


?7 076P7? 




105 


116 




ASf r 

• MOW i 




0^0 


117 

1 1 r 


1 1 A 




A5(" I 

• MOW i 


po 076^16 


POO 


105 


116 


FNDT^T 


• MOW i 




10A 


1 1 7 


1 PP 


f i«j\jr vn 


A5r r 

• MOW i 




POO 


05P 


05P 




• m«jw 1 


V 07<=>?7P 


POO 


Q5P 


05P 


DRNIM- 


A5r i 

• MOW 4 




040 


1P3 


124 


ASGND ■ 

^wUlvi/ ■ 


ASCI 




POO 


007 


077 






75 07f»47^ 


116 


000 




ill • 




7A 0764 7S 


1^1 


000 




Y ; 


Asr f 




056 


000 




PFRFnn 


A^r \ 


7B 076501 


040 


077 


10^ 


M^URO ■ 


ASCI 


7Q 076544 


040 


077 


111 

1 1 1 


TMWl n * 

i '* V L 1^ • 


ASf \ 


40 076567 


POO 


105 


116 




Asr [ 


41 076610 


POO 


105 


1 16 




A^f F 




POO 


105 


116 


FNTADR 


A^f F 


A< 076670 


072 


000 




fOI ON- 


A<;r F 


i.4 07fif,7? 


116 


1 1 7 




MOMP * 


A^r F 

• no V i 


45 076677 


040 


077 


1 1 1 


RADFNT 


A^r F 

• no c a 


46 0767P0 


POO 


10A 


101 


MFRR1 ■ 


A^C F 
• now i 


47 077000 


POO 


111 

III 


116 


MFRRP- 


ASf I 

• noir i 


Aft 077044 


05P 


040 


lOP 


M^f LJf 1 


A^f F 
• no V 1 


49 07710? 


10^ 


T^l 


114 




A<;f F 
• noi* i 


50 0771 PO 


POO 


OTP 


116 


Ni06RU^ 


A^r F 

• no L J 


51 077146 


052 


040 


116 


NOFNTY 


A^f F 
• no V. i 


52 077166 


200 


104 


105 


LSTHDR 


• .ASCJ 


53 077232 


052 


040 


101 


ALCST: 


.ASCI 


54 077270 


120 


101 


103 


PACKSN 


• .ASCI 


55 077303 


115 


102 


101 


M8ASN: 


• ASCI 


56 077315 


200 


103 


PO 


M5PRM: 


• ASCI 


57 








.EVEN 
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SEO 0208 

PE MESSAGES 

/?/ 
/=/ 

/./ 
/-/ 

<11> 
/DRIVE/ 
/ OFFLINE/ 
/ ONLINE/ 

/ NOT BEING TESTED/ 

/ ALREADY BEING TESTED/ 

a NOT AN RM05/3/2a 

/ NOT PRESENT/ 

/ NOT AVAILA8LF/ 

/ UNSAFE/ 

/ LOAD DEVICE/ 

<CRLF>/UNn STATUS:/ 

/RM02/ 

/RW03/ 

/RM05/ 

<CRLF><LF>/*«»»» PERFORMANCE REPORT •••••/ 
/»•*****•*•••••••••••*•*••/ 

/••••*/<CRLF> 

<CRLF^/DRIVE SUMMARY, (0FL0W= 2. 147.483,647. )/<CRLF> 
<07>/?F^TAL OR EXCESSIVE ERRORS/ 
<CRLf>/END OF PASS #/ 
/ ON / 

<CRLF>/END OF TEST / 
/FOR / 

<CRLF>/«**»« DRIVE DEASSiGN£D/<CRLF> 
<CRLF>/***** DRIVE #/ 
/ STARTED/ 

<CRLF><07>/? 'L' OR 'P' CLOCK REQUIRED ON SySTEH/<CRLF> 

/N/ 

/Y/ 

/./ 

/ ?CAN'T WRITE IN 'READ ONLY' MODE/<CRLF> 
/ ? INVALID COMMAND/<CRLF> 
<CRLF>/ENTER COMMAND: / 
<CRLF>/ENTER ADDRESS LIMI TS:/<CRLF> 
<CRLF>/ENTER BAD SECTR ADRS:/<CRLF> 
/:/ 

/NONE/ 

/ ? INVALID ENTRY/<CRLF> 

<CRLF>/FAILED TO RETRIEVE BAD SECTOR FILE(DEC144) ON / 
<CRLF>/INVALID FILE(DEC144) STRUCTURE ON / 
/* BAD SECTOR TABLE IS FULL •/<CRlF> 
/CYL TRK SEC= / 

<CRLF'><LF>/N0 drives ASSIGNED/<CRLF> 
/• NO ENTRIES •/<CRLF> 

<CRLF>/DEC144 AND MANUAL HAD SECTOR LIST/<CRLF> 
/• ALL CURRENT ENTRIES LOST »/<CRLF> 
aPACK S/N: a 
aMBA S/N: a 

<CRLF>/CHANGE DRIVE PARAMETERS (L) N ? / 



TELETYPE MESSAGES 



SEQ 0209 



1 
2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 



.•PARAMETER ENTRY TABLE 



077360 
077366 
07737A 
077A0? 
077A10 
077A16 
077A2A 
077A32 
077AA0 
077AA6 
077A5A 
077A62 



077A6A 
077A70 
07752A 
07753A 
C775AA 
0775 5A 
07756A 
07757A 
07760A 
07761 A 
07762A 
07763A 
0776AA 
07765A 
07766A 
07767A 
07770A 
33 07771 A 
3A 07772A 
35 
36 
37 
38 

39 07773A 
A2 077736 
0777A0 
C777A2 
0777AA 
0777A6 
077750 
077752 



A3 
AA 
5A 



07775A 
077762 
Q77770 
077776 
10000A 
100012 
100020 



07752A 
07753A 
07770A 
0775AA 
0776AA 
07765A 
07767A 
07766A 
07771 A 
07772^ 
07763A 
000000 

OAO 
200 
127 
111 
120 
115 
115 
115 
115 
115 
115 
102 
122 
122 
127 
105 
120 
115 
122 



07775A 
100022 
100070 
100136 
10020A 
100252 
100320 
100366 



07756A 
07755A 
07760A 
07757A 
07762A 
07761 A 
000000 



020000 
077777 
077777 
000017 
000001 
000007 
000001 
000001 
000001 
000001 
000001 



05/ 
103 
122 
116 
101 
101 
111 
101 
111 
101 
111 
101 
101 
101 
122 
116 
101 
105 
101 



000000 
000000 
000000 
000000 
000036 
000036 



001A50 
001A52 
001 A56 
001 A60 
001 A62 
001 A6A 
001 A66 
001 A70 
001 A72 
001 A7A 
001 A76 



OAO 
110 
10A 
12A 
12A 
130 
116 
130 
116 
130 
116 
10A 
116 
12A 
12A 
10A 
12? 
123 
116 



0A6330 
0A6326 
0A633A 
0A6332 
0A63A0 
0A6336 



PARLST: .WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



SLASH: 
ASKPAR : 
PARI 
PAR2 
PAfi3 
PARA 
PARS 
PAR6; 
PAR7: 
PARS; 
PAR9: 
PAR10; 
PAR11 
PARK 
PARIS 
PARI 6: 
PARI 9: 
PAR20; 
PAfi21 

.EVEN 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
•ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



PARI. 8192., WRDCNT 
PAR2, 32767., INTRVL 
PARI 9, 32767.. PASSES 
PAR3,15..PATTERN 
PAR11.1.RANDWC 
PAR1A,7,RATI0 
PARI 6.1 .ENDING 
PARI 5.1 .WRTCHK 
PAR20.1. MESSAGE 
PAR21.1. RANDOM 
PAR10.1 .8ADBLK 

0 ; TABLE TERMINATOR 

9/3 

<CRLF>/CHANGE PARAMETERS (L) N ? / 
/WRDCNT / 
/IMRVL / 
/PATTERN/ 



/MAXCYL 
/MINCYL 
/MAXTRK 
/MINTRK 
/MAXSEC 
/MINSEC 
/BADBLK 
/RANDWC 
/RATIO 
/WRTCHK 
/ENDING 
/PASSES 
/MESSAGE/ 
/RANDOM / 



.-PARAMETER TABLE POINTERS 

TABLE: .WORD TABLEO 

.WORD TABLE 1 

.WORD TABLE 2 

.WORD TABLE3 

.WORD TA8LEA 

.WORD TABLES 

.WORD TABLE6 

.WORD TA8LE7 



FOR ADDRESS LIMITS 

.•PARAMETER TABLE FOR DRIVE 0 
.•PARAMETER TABLE FOR DRIVE 1 
.•PARAMETER TABLE FOR DRIVE 2 
.•PARAMETER TABLE FOR DRIVE 3 
.•PARAMETER TABLE FOR DRIVE A 
.•PARAMETER TABLE FOR DRIVE 5 
.PARAMETER TABLE FOR DRIVE 6 
.PARAMETER TABLE FOR DRIVE 7 



.•PARAMETER TABLE FOR ADDRESS LIMITS 

TABLEO: .WORD PARS.O.MINCYL+DRIVEO 

.WORD PARA.O,MAXCYL*DRIVEO 

.WORD PAR7.0,MINTRK*DRIVE0 

.WORD PAR6.0,MAXTRK+DRIVE0 

.WORD PAR9,3O..MINSEC+DRIVE0 

.WORD PAR8.30..MAXSEC+DRIVE0 

.WORD 0 .'TERMINATOR 



100022 07756A 000000 0S05A2 TABLED- .WORD PAR5,0.MINCVL*DRIVE1 
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100030 
100036 
1000A4 
100052 
100060 
100066 

100070 
100076 
100104 
100112 
100120 
100126 
100134 

100136 
100144 
100152 
100160 
100166 
100174 
100202 

100204 
100212 
100220 
100226 
100234 
100242 
100250 

100252 
100260 
100266 
100274 
100302 
100310 
100316 

100320 
100326 
100334 
100342 
100350 
100356 
100364 

100366 
100374 
100402 
100410 
100416 
100424 
100432 



077554 
077604 
077574 
077624 
077614 
000000 

077564 
077554 
077604 
077574 
077624 
077614 
000000 

077564 
077554 
077604 
077574 
077624 
077614 
000000 

077564 
077554 
077604 
077574 
077624 
077614 
000000 

077564 
077554 
077604 
077574 
077624 
077614 
000000 

077564 
077554 
077604 
077574 
077624 
077614 
000000 

077564 
077554 
077604 
077574 
077624 
077614 
000000 



000000 
000000 
000000 
000036 
000036 



000000 
000000 
000000 
000000 
000036 
000036 



000000 
000000 
000000 
000000 
000036 
000036 



000000 
000000 
000000 
000000 
000036 
000036 



000000 
000000 
000000 
000000 
000036 
000036 



000000 
000000 
000000 
000000 
000036 
000036 



000000 
000000 
000000 
000000 
000036 
000036 



050540 
0505A6 
050544 
050552 
050550 



.WORD PAR4,0.MAXCYL*DRIVE1 

.WORD PAfi7.0.MINTR»(*DRIVE1 

.WORD PAfi6,0.MAXTRK*DRIVE1 

.WORD PAfi9.30.,MINSEC*DRIVE1 

.WORD PAR8.30..MAXSEC+DRWE1 

.WORD 0 .-TERMINATOR 

052754 TA8LE2: .WORD PAR5.0.MINCYL+DRIVE2 

052752 .WORD PAR4.0,MAXCYL*DRIVE2 

052760 .WORD PA,'-'i7,0.MINTR»(+DRIVE2 

052756 .WORD PAR6,0.MAXTRK*DRIVE2 

052764 .WORD PAR9,30. .MINSEC+DRI VE2 

052762 .WORD PAR8,30. ,MAXSEC*DRIVE2 

.WORD 0 .-TERMINATOR 

055166 TA8LE3: .WORD PAR5.0,MINCYL*DRIVE3 

055164 .WORD PAR4.0.MAXCYL+DRIVE3 

055172 .WORD PAR7.0,MINTRK*DRIVE3 

055170 .WORD PAR6.0.MAXTRK"^DRIVE3 

055176 .WORD PAR9.30. ,MINSEC"^DRIVE3 

055174 .WORD PAR8,30. .MAXSECORIVE3 

.WORD 0 ; TERMINATOR 

057400 TA8LE4: .WORD PAR5.0,MINCYL*DRIVE4 

057376 .WORD PAR4,0,MAXCVL*DRIVE4 

057404 .WORD PAR7,0,MINTRK*DRJVE4 

057402 .WORD PAR6,0-MAXTRK*DRIVE4 

057410 .WORD PAR9,30. ,M]NS£C-*DRIVE4 

057406 .WORD PAR8,30. ,nAXSECORIVE4 

.WORD 0 : TERMINATOR 

061612 TABLE5: .WORD PAR5,O.MlNCYt*DRIVE5 

061610 .WORD PAA4«0«MAXCYLORIVE5 

061616 .WORD PAR7.0,M]NTRIC*0RIV£5 

061614 .WORD PAA6,0.MAXTRK+DRIVE5 

061622 .WORD PAA9«30. .MINSEC^ORIVES 

061620 .WORD PAR8.30. ,MAXSEC«ORIVES 

.WORD 0 .-TERMINATOR 

064024 TABLE6: .WORD PAR5,0,MINCYL*DRIVE6 

064022 .WORD PAR4,0,MAXCYL*DRIVE6 

064030 .WORD PAR7,0.M1N7R>(*DRIVE6 

064026 .WORD PAR6,0.MAXTRK4^DRIVE6 

064034 .WORD PAR9,50. ,M1NSEC*DRIVE6 

064032 .WORD PAR8,50. .«AXSEC"^DRIVE6 

.WORD 0 .-TERMINATOR 

066236 TASLE7: .WORD PAR5.0.MlNCyL">0RIVE7 

066234 .WORD PAR4 ,0,MAXCYL*DRIVE7 

066242 .WORD PAR7,0.M1NTRK*DRIVE7 

066240 .WORD PAR6.0.MAXTRK+DRIVE7 

066246 .WORD PAR9,30. ,MINSEC*DRIVE7 

066244 .WORD PAfi8,30. .MAXSEC+DRIVE7 

.WORD 0 .-TERMINATOR 
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S€0 0^11 



.SSTTL ROUTINE TO SIZE MEMORY 



•CALL: 

• JSR PC.SSIZE 

• RE TURN 

•$LSTAD WILL CONTAIN THE LAST AVAILABLE MEMORY LOCATION 



1 /W tJ 


n 1 (\f\L A. 






1 U(J*»5o 


l'1 U 1 HO 








ni 77/. A 


nnni i l 




1 (W.AA 


ni X7LA. 

\J I Jf HO 


nnni i (\ 




1 .'w.in 

I »AK» jU 


ni 5777 


nnni i a 


nnni i l 

www 1 1 H 


1 JO 


m 5777 




nnni i (\ 
www 1 1 o 




U 1 Jf HO 


nnnnn^ 






ni 77Z.A 

u 1 jf so 


nnnnnA 






ni n^nn 








1 n^inn 








ni ?A^7 


nnnnnA 






ni ?7^7 


innsp^ 


nnono^ 




ni ?7ni 


Wc WwW 




100516 


005/1 1 






100520 


005721 






100522 


000775 






10052A 


162701 


000002 




100530 


010006 






100532 


012637 


000006 




100536 


012637 


OOOOOA 




1005A2 


012637 


000116 




1005A6 


012637 


0001 u 




100552 


010137 


10056A 




100556 


012601 






100560 


012600 






100562 


000207 






10056A 


000000 







;;SAVE RO ON THE STACK 
;;SAVE R1 ON THE STACK 
;;SAVE MEMORY ERROR VECTOR PS ft PC 

;; IGNORE PARITY ERRORS WHILE SIZING 



JSIZE: MOV R0,-(SP) 

MOV RI.-(SP) 

MOV a*1U.-(SP) 

MOV a*116.-(SP) 

MOV #ii6.a#iu 

f'lOV #RTI,d#116 

MOV a*ERRVEC.-(SP) ;;SAVE PRESENT ERROR VECTOR PS ft PC 

MOV a#ERRVEC*2.-(SP) 

MOV SP.RO ;;SAVE THE STACK POINTER 

;;SET THE ERRVEC PS TO THE' PRESENT PS 



1$: 



2S: 



SLSTAD; 



TRAP 
MOV 
MOV 
MOV 
TST 
TST 
BR 
SUB 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTS 
.WORD 



;;PUSH OLD PSW AND PC ON STACK 
(SP)*.d#ERRVEC^2 ;;SAVE THE PSW IN d#ERRVEC*2 

*2$.d#ERRVEC ;;SET FOR TIMEOUT 
#20000, R1 ; .'FIRST ADDRESS 

(R1) ;;TEST THIS ADDRESS 

(RD* ;;STEP TO NEXT ADDRESS 

1$ ;;TRY ANOTHER 

#2.R1 ;;DROP BACK 

RO.SP ; .-RESTORE THE STACK 

(SP)*.a#ERRVEC*2 .-.-RESTORE ERROR VECTOR 
(SP)*,a#ERRVEC 



(SP)*.a#116 

(SP)*.a#iu 

RI.SLSTAO 

(SP)*.R1 

(SP)*,RO 

PC 

0 



; .-RESTORE MEMORY ERROR VECTOR 

.-.•LAST ADDRESS 
.-.-RESTORE R1 
; .-RESTORE RO 

;; CONTAINS THE LAST ADDRESS 
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SEO 02U 



2 

3 

A 

5 

6 

7 

8 

9 
10 
11 
12 

13 100566 
K 100572 

15 10057A 

16 100600 

17 10060A 

18 100610 

19 100612 

20 100616 

21 100622 

22 100626 

23 100632 
2A 10063A 

25 100656 

26 1006A2 

27 1006A4 

28 100646 

29 100652 

30 100654 

31 100660 

32 100662 

33 100666 

34 10067? 
100674 
i 00676 

37 100702 

38 100704 

39 100706 

40 100712 

41 100714 

42 100720 

43 100722 

44 100726 

45 100732 

46 100734 

47 100736 
48 

49 '00740 

50 100747 



3i 
36 



U05737 
002053 
005037 
104401 
005227 
001402 
104401 
005037 
012700 
104401 
011046 
104402 
104401 
104411 
01Z601 
005737 
001361 
004537 
000756 
* 01 2700 
104401 
011046 
104402 
104401 
104411 
012601 
005737 
001341 
004537 
000760 
012700 
012701 
012021 
012021 
000207 

122 
122 



001336 

001336 
001203 
^77777 

001203 
001340 
001272 
100740 



075554 

0013«.0 

100756 

001274 
100747 

075554 

001340 

100756 

001 272 
040154 



115 
115 



.SBTTL BUSADR - GET BUS ADDRESS AND VECTOR ADDRESS 

THIS ROUTINE IS USED TO INSURE THE BUS ADDRESS Qf THE RH/RM 
IS SETUP FOR THE PROPER ADDRESS. IT WILL ALSO READ THE ADDRESS 
FROM THE TTr IF REQUIRED. 



NOTE: 
CALL; 



THIS ROUTINE DESTROYS R0-R4 



JSR 

RETURN 



PC, BUSADR 



103 
126 





TST 


CHGADR 




out 


3$ 




CLR 


CHGADR 






tCRLF 




INC 


M-l 






1 J 




*VPE 


.SCRLF 


1$: 


CLR 


CFLAG 




MCV 


#SRMADR.RO 




TYPE 


.MRMCS1 




nov 


(RO) ,-(SP) 




TYPOC 






TYPE 


.8LNKS2 




RDLIN 






liov 


(SP)*,R1 




TST 


CFLAG 




BNE 


1$ 




JSR 


R5.CK.NUM 




BR 


1$ 


21: 


nov 


#$RMVEC.RO 




TYPE 


.MRMVEC 




MOV 


(ftO).-(SP) 




TYPOC 






TYPE 


.8LNKS2 




RDLIN 






MOV 


(SP)*,R1 




TST 


CFLAG 




BNE 


IS 




JSR 


R5,CK.NUM 




BR 


2$ 


3$; 


MOV 


#SRMADR.RO 




MOV 


«WM>R,R1 




MOV 


(R0)*.(R1)* 




MOV 


(RC>*.{R1)* 




RTS 


PC 


MRMCS1 : 


.ASCIZ 


aRMCsi=a 


MRMVEC: 


.ASCIZ 


aRMVEC=a 



INPUT FROM TTY REQUESTED? 
NO— BRANCH 

YES— CLEAR THE REQUEST FLAG 

TY^'E A CR-LF 

FIRST TIME THRU ? 

BR IF YES 

CR-LF 

CLEAR CONTROL C FLAG 
FIRST ADDRESS 
' WICS1 =' ' 

PRESENT RMCSl ADDRESS 

TYPE IT 

TYPE 2 BLANKS 

GET THE ENTRY 

ADDRESS OF ASCII TEXT 

UAS IT CONTRa C ? 

8R IF YES 

ENTER AND STORE THE NEW ADDRESS 
ERROR EXIT 
VECTOR ADDRESS 

PRESENT RH/RM VECTOR ADDRESS ON THE STACK 

TYPE IT 

TYPE 2 8LAMCS 

READ THE ENTRY 

ASCII TEXT ADDRESS 

UAS IT CONTROL C ? 

8R IF tES 

ENTER AND STORE NEW ADDRESS 
ERROR EXIT 

FIRST ADDRESS OF NEW PARAMETERS 
FIRST ADDRESS OF WHERE TO PUT THEM 
BUS ADDRESS 
VECTOR ADDRESS 
RETURN 



ZRMUBC PERF EXER 

- CHECK NUMBER (OCTAL) 



2 

I 
5 
6 

7 

8 
9 

10 
11 

12 100756 0102A6 

13 100760 0103A6 
U 100762 010AA6 

15 100764. 012703 000006 

16 '00770 00S002 

17 100772 11210A 

18 10077A 00K2A 

19 100776 120427 000060 

20 101002 103A25 

21 101004 120427 000067 

22 101010 101022 

23 101012 006302 

24 101014 103420 

25 101016 006302 

26 101020 103416 

27 101022 006302 

28 101024 103414 

29 101026 042704 177770 

30 101032 060402 

31 101034 005303 

32 101036 001401 

33 101040 000754 

34 101042 112104 

35 101044 001004 

36 101046 005702 

37 101050 001401 

38 101052 010210 

39 101054 005725 

40 101056 012604 

41 101060 012603 

42 101062 012602 

43 101064 000205 
44 

45 101066 
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.bSTTL CK.NUM - CHECK NUMBER (OCTAL) 

THIS ROUTINE CHECKS AN ASCIZ STRING FOR LEGAL CHARACTERS 
AND FORMS AN OCTAL NUMBER IN R2 
CALL: 

ADDRESS TO PLACE NEW NUMBFR 
ADDRESS OF ASCI7 STRING 
R5 CHANGED 
ERROR EXIT 
NORMAL EXIT 



CK.NUM: 



1$: 



2$: 
3$: 



4$: 
5$: 



nu V 


ffrM/fy g T\\j 


nu V 




\> 


R5 fK NliM 


RF T 








MOV 


R? -(SP) 


MOV 


-(CP) 


MOV 


R4,-(SP) 


MOV 


*6'r3 


CLR 


R2 


MOVS 


(R1)'*- R4 




3$ 




R4 ^'0 




5$ 


CMP8 


R4 »'7 


BHI 


5$* 


ASL 


R2 


BCS 


5S 


ASL 


R2 


BCS 


5$ 


ASL 


P2 


BCS 


5} 


BIC 


#1 77770, R4 


ADD 


R4.R2 


DEC 


R5 


BEO 


Pi 


BR 


1$ 


M0V8 


(R1)+,R4 


BNE 


5t 


TST 


R2 


BEO 


4$ 


MOV 


R2-(R0) 


TST 


(R5)* 


MOV 


(SP) ♦,R4 


MOV 


(SP)*,R3 


MOV 


(SP>*.R2 


RTS 


R5 


.8LKW 


258. 



SAVE R2 
SAVE R3 
SAVE R4 

MAX OCTAL DIGITS IN THE NUMBER 

FINAL OCTAL VALUE 

GET CURRENT POINTED BrTE 

BfiMCHJf TERMINATOR DETECTED 

SMALLER THAN ASCJI-0 ? 

YES, ERROR EXIT 

LARGER THAN ASCn-7 ? 

YES, ERROR EXIT 

SHIFT lef; 

ONE 

OCTAL DIGIT 

ERROR IF CARRY BIT SET 

CHOP OFF HIGHER BITS 

APPENDING CURRENT DIGIT TO NUMBER 

DECREMENT BYTE COUNT 

BRANCH LAST BYTE 

LOOPING BACK 

CHECK TERMINATOR 

ERROR EXIT 

FINAL VALUE= 0 

YES, THEN NOT REPLACE THE ORIGINAL VALUE 

REPLACE THE ORIGINAL VALUE 

ADJUST FOR NORMAL RETURN 

RESTORE R4 

RESTORE R3 

RESTORE R2 

EXIT 

ONE SECTOR WORD CTR MAX ^12E 



46 
47 
48 
49 



102072 
000200 



ENDPGMr. 
.END 200 
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SYMBOL TABLE 



ADACC — 


1 f brUU 




A5A5^i 


R T 


000040 


1^ 1 nc 


01 ?60? 


DR 1 VF 3 


0SS040 




"ill 1 ?A 






RT r 


000100 

V/V/v 1 vv 


CI 1 1 i^TK 


001 375 

VW \ J 




05725? 

w^ ' C 


ArrvLiI — 


UUUUVJU 




077^70 


R T T7 = 


oonpnn 


rni nw 


07fifi70 

w ' UU ' V 


DR I VPS 


061464 

WO 1 ■•i/^ 


Arr\LiO — 
ALUWc - 






U J 1 Uc** 


RT Tft 
Di t O 




rOMMA 


07561 7 

W ' J W 1 f 


l/n i vcu 


063676 




U\AJ 1 cj 




nni ^^n 


R T TQ = 
Di 1 ' 


001 000 

W P vW 


rnMTRi 

L L/l 1 1 


00P064 

WC WW'* 


OR I\/F7 


0661 10 

WW 1 1 w 


ML r'UUf-'- 






1 \JJ\J 


RI l^ADA 

DL NMLTa 


00P044 

Wt v" " 




035124 




07637? 


A-^ I UKV 


UhU 1 Uc 


ACC T*^IU 




RI NiJf^l 


075555 


rR = 


00001 5 

WWW 1 J 


DROP 

l/r\ Wr 


031054 


AT T C TD 


A/ A1 1 ,7 

UhU I U J 


«oWr<C VJ— 


nnnnnn 


RI Mi^^P 


075554 


TR' F = 


000?00 

wwc WW 


l/n 'WW 


076? 36 

V' UC -'U 


A r\r\i — 
AlJUWU - 


AAA AAA 


ATA — 
AIM — 


1 uuuuu 




V f J J J ^ 


r TRAP 


034474 


npo = 


004000 

WH VW 




AAAAAA 


A T AO I T 


n/.ni L p 


RI Mi^^^ 


V ' J J JC 


rVi IMT 


0014?? 

W 1 ** L C 


ORVAf T 
l/n v^v 1 


0400?6 
w"* wc w 


\r\pvii1 


AAAAAn 

uuuuuu 






Dr 1 ¥ t i. — 


WWw 1 H 




101066 

1 W 1 WWW 


DRvri R= 


000111 

VW 1 1 1 


AfNrSL^I 1 — 

AUUw 1 1 — 




AT TNI 


nni '^pp 


R^F = 
DOC — 


1 00000 

1 vWW 




0756P1 

V* .^UC 1 


DRVFR 


01 1?56 

W 1 1 c 


AtMM-ll '5— 
AUUw 1 c— 




Atn — 

M I U — 


nnnnni 


RI IF TRi 

DU' 1 OL. 


001 ^^P 
W 1 o**t 


DATAPK 


0?655? 

WC J c 


DRV INT 


040400 

W~ W~ WW 


AUUW 1 J— 




ATI - 
Mil — 


nnnnnp 


RI KAHP 


10056^1 

1 W JWO 


DATAO 

L/^ 1 /^W 


00?47? 

WWC ~ r C 


DRVPAR 


001430 

WV 1 ~ -/W 


AL/UW 1 H — 




ATP - 


nnnnni 


fFI fkCi 


001 ■?40 

W 1 J~ V 


DATA1 


00?53? 

WWC rf/ ^C 


DRVPRM 


0?70?0 

WC f wcw 






ATX 

M 1 J — 


nnnnin 




001 336 


DATAIO 


0031 7? 

WW./ i ' c 




046036 

W^ WW-/W 


AFMMJ^ 
AULwc - 




AT^ - 
M 1 H — 


nnnnpn 




0?0316 


DATA1 1 


003232 

WW^C ^c 


DRVSTA 

wn V ^ 1 n 


040036 

W^WW«/w 


A^^^^uT — 
AUuwj — 


UvV/UuU 


AT*» - 

n t J — 


nnnnin 


r 11 


041434 

w"f 1 "f J"* 


3ATA1 2 


003272 

vv^c ■ c 


DRVTYP 


040046 

W~ 


Ar\r\i-i/- — 


nnrxvin 


ATA - 
H 1 O — 


nnni nn 


^ i ^ 


041 54? 


DATAl 3 


003332 


DRY = 


000200 


Ar\riU*i — 




AT? 


nnnpnn 


V. i 


041650 

V** ' KJJV 


DATAl 4 


003372 

V W— ^ — ' • b 


DSUR = 


177570 


APirMj^ 

HUL/WD — 




Al IN T T - 


ooooon 


CIS 

V. i ^ 


04???6 

W*t b k bU 


DATAl 5 


003432 

WW— ^fc 


DTt = 

W 1 C 


010000 

V ■ WW 


AnriiJ7 — 

>\iJ\Jm r — 


nnnnnn 


Al KUR - 


OOOOOO 


f 16 

Liu 


04??50 

W~ k c w 


DATA2 


002572 

WVC ^ • b 


W I L Lf« 


012050 




nnnnnn 

LAAAA/v 


Al ITI 
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WRT.R5 045226 

WRT.WD 045130 

XXDP 001432 

Y 076475 

ZEROS 002472 

ZROIND 001354 

SAPTHD oonoo 

SATYC 036502 

tATYl 036456 

tATY3 036464 

tArY4 036474 

$AUT08 001150 

$eASE 0C1262 

SeOADR 00^36 

J80DAT 001142 

SeOSEC= 000144 

fSELL 001176 



EXER MACRO V04.00 



$8UF = 000006 
SCDWI 001266 
$CDW2 001270 
SCHARC 036000 
$C<SUR 033526 
SCMTAG 001114 
$CM3 = OOOCOO 
$CM4 = 000001 
SCNTLC 034433 
SCNTLG 034445 
SCNTLU 034440 
SCODE = 000024 
$C0MND= 000002 
SCPUOP 001234 
SCRLF 001203 
$CYL = 000012 
SDBLK 036446 
SDB2D 037122 
$DB20 037316 
SDECVL 037302 
SDEVCT 001216 
SDEVM 001264 
$DIV 031710 
SDOAGN 031632 
SDSPLY 032616 
SDTBL 036436 
SENDAD 031622 
$ENDAT= 000036 
SENDCT 031606 
$ENDSK= 000042 
SENV 001226 
SENVM 001227 
$E0P 031162 
SEOPCT 031600 
SERFLG 001117 
SERMAX 001131 
SERROR 034540 
SERRPC 001132 
SERRTB 003472 
SERRTY 035130 
SERTTL 001126 
SETABL 001226 
SETEND 001272 > 
SFAIR = 000106 
SFATAL 001210 
$FFL6 036722 
SFILLC 001172 
SFILLS 001171 
♦FIRST= 000122 
SFMT = 000001 
SGDADR 001134 
SGDDAT 001140 
$6ET42 031612 
SGTSWR 033616 
SHARD = 000076 
$HD = 000000 
SHIBTS 001100 



4-APR-81 01;42:23 



SHINUM 037022 
$HLDUC= 000110 
SICNT 001120 
SILLUP 037610 
$INTA6 001151 
SITEMB 001130 
$LF 001204 
SLFLG 036721 
SLKCSB 001300 
SLKCSR 001276 
$LKS 001304 
SLLVEC 001306 
SLONUM 037024 
SLPADR 001 1 22 
SLPERR 001124 
SLPVEC 001302 
SLSTAD 100564 
SMADRl 001240 
$f1ADR2 001244 
$MADR3 001 250 
Sf1ADR4 001254 
SMAJL 001206 
SMAMSl 001236 
SnAnS2 001242 
SnAnS3 001246 
$«AMS4 001252 
SWBADR 001102 
$«BASN= 002126 
SMFLG 036720 
f^iSPO= 000102 
SMNEW 034463 
SnSGAD 001222 
SnSGLG 001224 
SnSGTY 001206 
Snsm 034452 
SMTYPI 001237 
$«TYP2 001243 
$«TYP3 001247 
$«TYP4 001253 
SNC00E= 000112 
SNCYL = 000116 
SNEXT = 000120 
$NPATC= 000113 
SNSEC = 000114 
SNTRK = 000115 
SNULL 001170 
SNUTSTr 000000 
SOCNT 036226 
SOCTVL 037420 
SOMODE 036230 
$OPERC= 000046 
SPACK = 000026 
SPASS 001214 
$PASSC= 000104 
SPASTM 001106 
SPATTC- 000030 
$P0SIT= 00005? 
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SPOWER 037620 
$PREVA= 000032 
$PREVO= 000027 
SPSEL = 000003 
SPSNL = 000140 
tPSm = 000142 
SPWRAD 037604 
SPWRDN 037436 
SPWRMG 037600 
SPWRUP 037510 
SQUES 001202 
SRAND 036724 
SRDCHR 034070 
$RDL IN 034160 
$RD0FL= 000064 
SRDSZ = 000017 
SREAD = 000066 
SREG = 000014 
SRESRE 037064 
SRETRY 016104 
$RHEXT= 000001 
fRMADR 001272 
$Rf-1AS = 002154 
IRMSA - 002142 
SRMBAE= 002206 
$R«CS1= 002136 
SmCS2= 002146 
$Rf1CS3= 002210 
SRMDA = 002144 
SRMDB = 002160 
SRMDC = 002172 
SRMDS = 002150 
SRMDT s 002164 
SfMECl- 002202 
$WEC2= 002204 
$R«ER1= 002152 
$R«ER2= 002200 
$RMHR = 002174 
SWLA = 002156 
$Rff1Rl=: 002162 
SRMMR2= 002176 
SRMOF = 002170 
SRnSN = 002166 
SRHVEC 001274 
SRMUC = 002140 
$Rn02 076044 
SRN03 076051 
SRMOS 076056 
SRTNAD 031634 
fSAVRE 037026 
$SAVR6 037614 
$SB2D 033130 
$S820 033160 
$SEC = 000010 
$SETUP= 000156 
SSIZE 100434 
$SKI = 000100 



SEO 0217 

SSOFT = 000074 
SSSEC = 000022 
$STUP = W7777 
SSUPRL 032234 
$SUPRS 032250 
SSUPRI 032262 
$SUPR2 032324 
SSVPC = 000210 
$SWR = 122000 
$SWRE6 001230 
$TATUS= 000016 
$TERM = 000032 
STESTN 001212 
STIME 024750 
$TK8 001162 
STKCNT 033210 
STKINT 033226 
STKQEN= 033225 
STKQIN 033212 
STKQOU 033214 
STKOSR 033216 
$TKS 001160 
STKSRV 033276 
STMPO 001174 
STN = 000002 
$TNPWR 037232 
$TOTAL= 000072 
$TPB 001166 
STPFLG 001173 
SIPS 001164 
STRAP 037730 
$7RAP2 037752 
STRK = 000011 
STRP = 000015 
STRPAD 037764 
STSTM 001104 
SlSim 001116 
STTYIN 034414 
STYPOS 036232 
STYPE 035450 
STYPEC 035662 
STYPEX 036002 
STYPOC 036030 
STYPON 036044 
STYPOS 036004 
SUNIT 001220 
SUNITM 001110 
SUSyR 001232 
SVECTl 001256 
SVECT2 001260 
SWCNT = 000004 
SURDL = 000020 
SWRITN= 000060 
$WTOFL= 000056 
SXOFF = 000023 
SXON = 000021 
$SGET4= 000000 
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SYMBOL TABLE 

tOFiLL 036227 .$X = 001100 

. A8S. 102072 000 
000000 001 
ERRORS DETECTED: 0 

VIRTUAL MEMORY USED: 62464 WORDS ^ 244 PAGES) 

DVNtAMIC MEMORY AVAILABLE FOR 70 PAGES 

r ZRMue . B I C . C ZRMU8/ C - C ZRMU8 . DOC . C ZRMUB . S Y SMAC /M 
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L 1 

4-APR-61 01:42:23 PAGE S-1 



SEO 0219 



S»GEH 

SOFILL 

UOCAT 

lAPTHD 

tASTAT 

SATY1 

$ATY3 

IATY4 

SATYC 

tAUTQB 

SBASE 

SBOADR 

SBODAT 

SBDSEC 

S8ELL 

seuF 

SC0W1 

SCDU2 

tCHARC 

tCKSUR 

SCH3 

scn4 

tCMTAG 
SCNTLC 
SCNTLG 
SCNTLU 
SCODE 

scomo 

SCPUOP 
$C«LF 



$CYL 

SDB2D 

SDB20 

SDBLK 

SOECVL 

$OEVCT 

SDEVn 

SDIV 

SDOAGN 

SOSPLY 

SOTBL 

SENDAD 

SEfyDAT 

KNDCT 

SENDSK 

SENV 

SENVK 



35-1 

45- 1 
42-1 

5- 8 
47-1 
47-1 # 
44-1 
42-1 
47-1 

'-0* 
41-1 

6- OM 
6-0# 
6-0# 

21- 22 
6-0# 

11- 98* 
6-0# 
6-0# 

44-1 
41-U 

6-0 

6-0 

6-0# 
41-1 
41-1 

41- 1 

12- 669 
20-25* 

13- 394* 

54- 759* 
6-OM 
6-0* 

12- 666 

22- 14 
22-262 
27-161 

42- 1 

13- 15 

55- 12* 
22-393 
40-143 

46- 1 
50-1 

6-0* 
6-0* 

13- 249 
35-1 
39-103* 
46-1 

5- 5 

14- 26* 
35-1* 
14-183* 

6- 0* 
6-0* 



ss--"* 

45-1* 

5-8* 
47-1 

47-1* 
47-1* 
47-1* 

9-30* 
41-1 

9-71 



31-36 
22-10 

11- 134* 

31-44* 

44-1* 

53-1 

6-0* 

6-0 

9-25 
41-1 
41-1* 

41- 1 
13-3 
20-33* 
13-408* 
55-6* 

9-110* 
9-50 

12- 666 
22-16 
22-295 
31-97 

42- 1 

13- 418* 

22-401 

51-1* 

46-1 

50-1* 

35-1* 

13- 343 
35-1 
53-2 
46-1* 
35-1* 

14- 27* 

14-184* 
9-30 
9-25 



45-1* 


45-1* 










9-76 


9-163 


9-178 


10-12 


11-82 


23-66 


9-73 












32-18 

41-1 

12-704 


32-95 

41-1 

13-10 


55-68* 

41-1 

14-10 


55-72 

i,2'^ 

14-96 


42-1 
14-102 


42-1 
14-107 


31-53 
44-1* 
53-1 


31-85* 
44-1* 


44-1* 








6-0* 

9-25 
41-1 


6-0* 
9-25 
41-1 


41-1* 








41-1* 
13-30 
20-39 
13-428* 


13-90 

29-33* 

13-444* 


13-254 

29-43 

13-463* 


13-350 

54-758* 

15-54* 


13-356 
55-20* 
15-57* 


14-14 
20-27* 


9-137* 
9-219 

12- 666 
22-17 
22-309 
32-119 
42-1 

13- 461* 


22-89 
9-263 

13- 159 
22-36 
22-122 
32-126 
43-1 

14- 181 


22-27\ 

11-39 

13-181 

22-70 

22-129 

34-7 

43-1 

15-22 


54-<17 

11-61 

13-193 

22-72 

22-362 

34-26 

43-1 

15-24* 


12- 47 

13- 319 
22-106 
22-371 
35-1 
43-1 
15-31* 


12- 59 

13- 328 
22-119 
22-403 
35-1 
44-1 
20-15 


22-422 


24-107 


24-118 


24-126 


40-126 


50-1* 


46-1* 












35-1* 












22-291 
35-1* 


36-11 


36-39* 








35-1 


35-1 


35-1 


55-25* 






35-1 

9-66 
44-1 


35-1 
10-6 
44-1 


55-26* 
42-1 

47-1 


44-1 


47-1 


47-1 



29-58 29-76 32-11 



35-1 



35-1 



41-1 



14-111 14-153 22-102 22-252 22-259 55-9* 



14-16 
20-28 



12- 60 

13- 354 
22-138 
22-430 
41-1 
44-1 
20-37* 



14-24 
20-32* 



12- 66 

13- 367 
22-158 
24-21 
41-1 
44-1 
22-165 



14-151 
29-13 



12- 67 

13- 381 

22-^77 

2U-72 

41-1 

63-16 

29-15 



15-32* 
29-35* 



12- 92 

13- 383 
22-192 
24-159 
41-1 
63-19 
29-110* 



15-53* 
31-43* 



12- 657 

13- 384 

22-22Q 

27-\5 

42-1 



15-56* 
5t*-7t,7 



^2-iM> 

22-M 

22-2'^Z 

27-157 

42-1 



31-39* 54-756 
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CROSS REFERENCE TABLE (CREF vOI-05 ) SEO 0^r<?U 

tfOP 11-175 

SEOPCT 35-1 
tERFLG 6-0* 
SERMAX 6-0* 
SERROR 9-25 
SERRPC 



6-0* 42-1 42-1 42-1 42-1 » 42-1* 43-1 43-1 



35-1* 






35-1* 




42-1* 


42-1 


42-1 


42-1* 




42-1 


42-1 


42-1 


43-1 






43-1* 






42-1 


42-1 


42-1* 


54-830 


54-832 


54-; 18 


6-0* 






11-1S8* 


11-146* 


11-147 


47-1* 






47-1* 


47-1* 


47-1* 


44-1 


44-1 


44-1 


44-1 


44-1 




9-103* 


9-103* 


9-103 


55-5* 


55-6 


55-7 



SERRTB 8-0* 

SERRTY 42-1 

IesCAP 54-772 54-830 54-832 54-; 18 54-; 77 54-=81 

SE TABL 6-0* 

IfaIR^ 11-101* 11-158* 11-146* 11-147 55-39* 

$FATAL 6-0* 47-1* , , 

SFFLG 47-1 47-1* 47-1* 47-1* 47-1* 

SFILLC 6-0* 

SFILLS 6-0* 



If RST 9-103* 9-103* 9-103* 9-103* 9-103* 9-103* 9-103* 9-103* 10-32* 29-22 29-67* 55-50* 
WMT 12-247* 55-5* 55-6 55-7 55-8 55-9 55-10 55-11 55-12 55-13 55-14 55-18 



SFMT 12-247* 

SGOADR 6-0* 

SGDDAT 6-0* 

$GET42 11-91 23-68 35-1* 

SGTSWR 41-1* 53-1 53-1 

SHARD 24-144 24-156 25-17 25-17* 55-35* 

$HD 4-56 4-56 4-56 

tHiBTS 5-8* 

tHlMM 9— ?5* 

IhldUC 14-94 14-103 14-108 14-112 15-47* 20-43* 55-40* 

tICNT 6-0* 

SILLUP 52-1 

Irllm t<i 42-i 42-1 42-1 42-i 42-i 42-1* 42-1* 43-1 

$LF 6-0* 41-1 41-1 41-1 42-1 42-1 44-1 44-1 

SLFLG 47-1* 
SLKCSB 7-0* 
JLKCSR 7-0* 
%LKS 7-0* 
SLLVEC 7-0* ..^ ^. 

SLONUM 9-25* 16-18 36-8 48-1 48-1 48-1# 48-1* 

SLPADR 6-0* 

$LPERR 6-0* 
ILPVEC 7-0* 
tLSTAD 9-152 

SMADRI 6-0* 
JMADR2 6-0* 
$«ADR3 6-0* 

sSaIL^ 5-8* 5-8 6-0* 9-19 9-25 9-30 42-1 44-1 
IMAMS 1 6-0* 
JMAMS2 6-0* 
IMAMS3 6-0* 
fMAMS4 6-0* 
SMBADR 5—8* 

SMBASN 29-22 29-25 30-25* 39-62 55-72* 55-76 

IMFLG 47-1 47-1* 47-1* 47-1* 

fMISPO 22-425 24-150 24-156 25-19 25-19* 55-37* 

$MNEW 41-1 41-1* 



36-9 


48-1 


48-1 


48-1* 


48-1* 


14-103 


14-108 


14-112 


15-47* 


20-43' 


52-1 


52-1* 






41-1* 


41-1 


41-1 


41-1 


41-1 


42-1 


42-1 


42-1 


42-1 


42-1 


41-1 


41-1 


41-1 


42-1 


42-1 


47-1* 










23-48* 










23-42 


23-49* 








23-55 


23-60* 








23-57 








48-1# 


16-18 


36-8 


48-1 


48-1 


23-45 










62-1* 


62-1* 








5-8 


6-0* 


9-19 


9-25 


9-30 
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see 0''21 



WSGAD 

SMSGLG 

SMSGTY 

SMSUR 

SMTYPl 

$MTYP2 

$HTYP3 

$MTYP4 

SNCODE 

SNCYL 

SNEXT 

INPATC 

SNSEC 

SNTRK 

SNULL 

SNUTST 

tOCNT 

SOCTVL 

sonoDE 

SOPERC 

SPACK 

$PASS 

SPASSC 

SPASTM 

SPATTC 

SPOSIT 

SPOWER 

JPREVA 

SPREVO 

SPSEL 

SPSNL 

$PSI^ 

SPURAD 

SPURON 

SPWRMG 

SPURUP 

SQUES 

SR2A 

SRAND 

SRDCHR 

SRDDEC 

SRDLIN 

SRDOCT 

SRDOfL 

SRDSZ 

fREAO 

MEG 

SRESRE 
SRETRY 
SRHEXT 

tR«02 
tRH03 
$RM05 
VmADR 



6-0# 
6-0# 
6-0# 

41-1 

6-0* 

6-0* 

6-0* 

6-0* 
16-22* 

16- 24* 

11- 100* 

17- 62* 
16-23* 
16-39* 

6-0* 
9-19* 
45-1* 

51- 1 
45-1 
14-179* 
10-33* 

6-0* 
24-90 

5- 8* 
14-155 
14-185* 

52- 1 
13-415* 
22-226 

13- 407* 
55-7* 
31-70 

9-150* 
52-1* 

9-25 
52-1* 

52- 1 

6- 0* 

53- 1 
16-8 
41-1* 
53-1 
41-1* 
53-1 

14- 32* 
41-1 
14-28* 
55-13* 
55-112 
49-1* 

12- 205 
4-8* 

55-112 
9-252 
9-249 
9-255 

7- 0* 



47-1 
47-1* 
47-1 
41-1* 



17-50 
16-40* 
11-123 
20-35 

16- 35 

17- 21* 

44- 1 

45- 1* 

51- 1* 
45-1* 

14- 180* 

11- 125 
9-25* 

29-42* 

15- 59* 

14- 186* 

52- 3* 

13- 416* 

54- 756* 

15- 20* 

31-74* 
9-150* 

52-1 

52- 1* 
41-1 

17-43 

53- 1 

53-1 

22-396 
41-1* 

14- 29* 

55- 112 
55-112 
53-1 

12- 291 
9-105 

55-112 
24-81 
24-78 
24-84 
9-73* 



47-1' 
47-1 



17-59 

17-10* 

11-137* 

55-45* 

16-38* 

55-47* 

44- 1 

45- 1* 

45-1* 

15-15 

15-33 

35-1 

35-1 

20-35* 
22-420 

13-417* 
54-757* 
20-11* 

39-87 
9-150* 

52-1* 



41-1 

17-76 
53-1 

53-1 

24-113 

14-31* 
55-112 
55-112 

12-355 
22-28 
55-112 
60-19* 
60-20* 
60-21* 
9-85 



47-1* 47-1* 



20-13 
20-37 
15-60* 

17-32* 

44-1 



45-1* 

15-17 

15-51 

35-1 

35-1 

29-36* 
24-125 

14-181 
55-24* 
20-12* 

39-92 
9-150* 



41-1 
48-1* 

55-31* 

22-399 
55-112 



12-403 

22-88 

55-112 



9-113 



20-25 

55-48* 

15-65* 

17-46 



45-1* 

16-30 

15-64* 

35-1* 

35-1* 

29-37* 
55-28* 

15-21* 

20-30 

55-63* 
9-150* 



41-1 



24-117 
55-112 



12-447 
22-270 
57-11 



20-26 

17-63* 

20-36 



45-1* 

16-32 

20-9 

35-1* 

55-38* 

55-23* 



15-22* 

22-46 

55-64 
9-150* 



42-1 



55-32# 
55-112 



12-482 

29-24 

58-9 



55-44* 

29-18 

55-46* 



55-45 
55-49* 



55-46 55-47 55-48 55-49 55-50 55-54 



55-27* 

27-166* 

35-1* 



20-15* 

54- 755* 

55- 68 
9-150* 



55-21* 
35-1* 



20-16* 
55-22* 



20-19* 20-20* 20-21* 22-210 22-214 22-218 



9-150* 31-72 31-75* 31-104* 39-79 39-83 55-64* 



42-1 



44-1 



44-1 



55-112 55-112 55-112 55-112 55-112 55-112 55-112 55-112 



12-509 
54-164 



12-584 
54-193 



12-615 12-634 13-483* 13-501 
54-<16 55-96 55-112 55-112 



I 



55-112 55-112 



9-127 58-5 



63-21 63-43 
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SEO 0222 



tRMAS 
SR^ 

SRMBAE 
IRMCSI 



$R«CS2 

$RMCS5 

tRMDA 

tRMDB 

SRHDC 

VWDS 

IRMDT 

IRHECl 

SRnEC2 

tfWERl 

tR«ER2 

SRnNR 

tRMLA 

SftnMR2 
SRWOF 
SRnSN 
SRMVEC 

SRnuc 

SRTNAD 

SSAVR6 

SSAVRE 

SSB2D 

SSB20 

SSEC 

SSETUP 



SSIZE 
%SK1 
$SOf T 
SSSEC 
fSTUP 

SSUPRI 

$SUPR2 

fSUPRL 

SSUPRS 

fSVPC 

SSUR 



SSWREG 
STATUS 

STERM 

STESTN 

$TIMB 



55-85* 

12-705 

55-78* 

55-97* 

12-6 

55-82 

55-97 

12-127 

22-276 

15-23 

22-285 

12-A2A 

12-10 

55-87* 

12-m 

12-198 

12-123 

12-2A1 

12- 181 
55-91* 
55-8A* 
55-86J» 
55-92* 
55-89* 

30- K 

7-0* 

l<:-700 
35-1* 

52- 1 
A9-1* 

13- 271 
22-A 50 
13-17 

31- 53 
4-261 
9-25 

41- 1 
9-151 

22-428 
24-141 
13-23 
4-261 

4- 26U 
38-19 
38-18* 
13-272 
38-21* 

5- 5 
4-46* 
9-25 

42- 1 

6- 0* 
11-167 
13-412 

53- 3* 
6-0* 

22-18 



58-7 

15- 241 
58-7 
58-10 
12-8 
55-83 
55-98 
12-301 
29-25 

16- 23 
55-85* 
15-24 
12-131 
58-7 

12- 196 

13- 279 
12-135 
12-281 

12- 183 
58-8 
58-7 
58-7 
58-6 
58-8 
55-88* 

9-70* 

13- 12 

52- 1* 

53- 1 
22-466 
39-85 
13-419* 
31-66 

4-261 
9-25 

41- 1 
62-1 # 
24-147 
24-156 
13-28 

4- 261 

38-24# 

38-23* 
22-394 

5- 5* 
4-56 

35-1 

42- 1 
9 25 

12- 4 

13- 432 

9-19- 
24-69 



13-275 13-297 13-335 



12-681 

55-84 

55-112 

12-580 

55-98* 

22-186 

58-7 

16-24 

12- 169 

13- 260 
22-320 
12-139 
12-310 
12-650 



58-8 
9-86 
13-242 

52- 1* 

53- 1 
24-91 
39-88 
13-460* 
31-82 

4-261 
9-25 
41-1 

24- 156 

25- 16 
13-29 

4-261 



38-33 
22-402 



13-407 

55-85 

55-112 

1 2-683 

55-112 

22-241 

22-190 
55-81* 

22-316 
55-95* 
12-143 
12-323 
12-640 



63-32 
13-337 

52-1* 

26-14 
39-93 
15-21 
31-84* 
4-261 
9-25 
41-1 

25-18 
25-16* 
13-248 
4-261 



38-35* 
22-423 



15-20 

55-86 

55-112 

55-80* 

55-112 

23-19 

22-229 
38-6 

55-94* 

58-6 

12-147 

12-325 

12-687 



22-100 
52-1* 

26-19 

40- Ul# 
15-23* 

54- 757 
4-261 
9-25 

41- 1 

25-18* 

55- 34* 
13-342 

4-261 



38-37* 
22-467 



13-374 


14-9 


22-103 


22-153 


22-258 


22-269* 


22-27'>* 


22-27^* 


22-279 


20-11 

55-87 

55-112 

58-6 

55-112 

e J cv 


22-40 
55-88 
55-112 

55-112 


54- 755 

55- 89 
55-112 

55-112 

JO ' 


55-76* 

55-90 

55-112 

55-112 


55-77 
55-91 
55-112 

55-112 


55-78 
55-92 
58-6 

55-112 


55-79 
55-93 

58-10 


55-80 
55-94 


55-81 
55-95 


23-21 


55-90* 


58-8 














58-6 


















12-151 
12-376 
55-93* 


12-155 
12-414 
58-6 


12-159 
12-685 


12- 163 

13- 494 


12- 167 

13- 497 


12-173 
55-82* 


12-177 
58-6 




12-239 


22-156 


22'2B7 


55-77* 


58-7 












26-24 


32-101 


32-107 


32-115 


40-1 24*r 











15-26 
55-10* 

4-261* 

9-25 
42-1 

55-36# 

15-49* 
4-261# 



38-16* 



15-29* 15-39 20-16 20-36* 22-175 29-112* 31-41* 31-52* 



4-261# 
9-25 
42-1 



20-58* 
4-261* 



4-261* 

9-25 
42-1 



20-41* 
4-261* 



4-261* 

9-25 
42-1 



22-290 
4-261* 



4-261 # 
9-30 



29-41* 
4-261# 



4-261# 
9-30 



29-45* 
4-261* 



9-25 
9-30 



55-19* 
4-261* 



9-25 
35-1 



9-25 
35-1 



4-261* 4-261ii 



4-57 


4-57 


4-57 


4-57 


35-1 


35-1 


35-1 


35-1 


42-1 


52-1 






12-24 


12-31 


12-33 


12-35 


13-468 


13-484 


13-490 


14-7 


35-4* 


43-1 


43-1 




26-4* 


27-16 


42-1 





4-57 
42-1 



12-37 
22-97 



4-57 
42-1 



12-39 
22-249 



4-57 
42-1 



12-41 
29-18 



4-57 
42-1 



12-119 
31-49 



6-0 
42-1 



6-0 
42-1 



12-231 12-234 
54-754* 55-14* 



6-0 
42-1 



12-251 
58-8 



9-19 
42-1 



12-314 
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SEQ 02? 5 



$T»CB 

tTKCNT 

tTKiNT 

tTKQEK 

STKQIN 

tTKQOU 

STKQSR 

$TKS 

STKSRV 

tTMPO 

STN 

tTNPUR 

$TOTAL 

STPB 

STPFLG 

$TPS 

STRAP 

STRAP? 

STRK 

STRP 



STRPAD 

STSTM 

STSTF#1 

STTYIN 

STYP8N 

STYPOS 

STYPE 

STYPEC 

STYPEX 

STYPOC 

STYPON 

STYPOS 

SUNIT 

SUNITM 

SUSUR 

SVECT1 

SVECT2 

SUCNT 

SURDL 



SURITN 

SWTOFL 

SXOFF 

SXON 

.SASTA 

.$/ 

A16 

A17 

ABASE 
A8NRML 



6-0* 
41-1 

9-65 
41-1 
41-1 
41-1 
41-1 

6-0# 
44-1 
41-1 

6-0# 

4- 47# 
50-1 
22-385 

6-0# 

6-0* 

6-0* 

9-25 
53-1 
1 3-459* 
53-1 
53-1 
53-1 
53-1 
53-2 
53-1 

5- 8* 

6- 0* 
41-1 
53-1 

46- 1* 
39-46 
41-1 

44- 1 

45- U 
45-1 
45-1* 

6-0* 

5- 8* 

6- 0* 
6-0* 
6-0* 

13- 464* 
12-702 
15-47 
55-24 
55-58 

14- 18* 
14-22* 
44-1 
41-1 

47- 1 
5-8 
4-82* 
4-83* 
4-258* 

11-174 



27-78 

41-1 

10-3 

41-1 

41-1 

41-1 

41-1 

27-79* 

41- 1* 

4-56 
50-1 
24-153 
44-1 
44-1 
44-1 
53-1* 
53-1* 
15-30* 
53-1 
53-1 
53-1 
53-1 
53-2 
53-1* 

42- 1 
41-1 

53-1 

39-106 

44-1 

44- 1 
53-1 

45- 1* 
53-1 

7-0 



41-1 


41-1 


41-1 


41-1 


41-1* 


41-1* 


41-1 • 


41-1* 




35-5 


4 1- 1 


z 1 — 1 
«i 1 - 1 


41-1* 


41-9 




41-1* 


41-1* 


41-1* 


4^-1* 


41-1* 


41-1* 


41-1* 


41-1* 


41-1 


41-1* 


41-11 


41-1 


41-1 


41-1 


41-1 



9-19 
50-1* 

25-20 
44-1 
44-1 
44-1 



22-170 

53-1 

53-1 

53-1 

53-1* 

53-2 

53-3 

42-1 
41-1 

53-1 

44-1* 

44-1 

44-1* 

53-1 

53-1 



9-19 

25-20* 
44-1* 
44-1 
44-1 



29-111* 

53-1 

53-1 

53-1 

53-1* 

53-2 



42-1 
41-1 



47-1 
44-1 



9-19 
34-38 



31-40* 

53-1 

53-1 

53-1 

53-1* 

53-2* 



41-1 



53-1 
44-1# 



9-19* 
55-33* 



55-11* 

53-1 

53-1 

53-1 

53-1# 



41-1# 
53-1 



9-68 


9-70 








1 5-46* 


15-48* 


20-42* 


20-44* 


29-39* 


13-11 


13-243 


13-336 


14-51 


14-58 


17-55* 


20-42 


20-43 


22-99 


22-255 


55-25 


55-26 


55-27 


55-28 


55-29 


55-39 


55-40 


55-44 




55-30* 


14-19* 


14-21* 


22-391 


24-106 


22-388 


24-102 


55-29* 






44-1 










44-1 


44-1 








47-1 










5-&r 










9-131 


9-135 








9-131 


9-135 








6-0 


6-0 








34-36* 











41-1 

41-6* 

41-1* 

41-1* 



41-1 



41-1 

41-7* 
41-1* 



41-1 



44-1 



41-8* 41-9 



44-1 



41-11* 



41-1* 41-1* 41-1* 



41-1* 



41-1* 



44-1 



53-1 
53-1 
53-1 
53-1* 



53-1 
53-1 
53-1 
53-1* 



53-1 
53-1 
53-1 
53-U 



53-1 
55-1 
53-1 
53-1# 



53-1 
55-1 
55-1 
53-1* 



53-1 
53-1 
53-1 
53-1# 



55-1 
53-1 
53-1 
55-1* 



53-1 
53-1 
55-1 
55-1* 



29-40* 
14-60* 
22-288 
55-30 



31-42* 
14-61 
29-38* 
55-11 



55-8* 
14-62* 
55-18* 
55-32 



14-154 

55-19 

55-33 



15-42* 

55-20 

55-34 



15-43* 

55-21 

55-35 



15-45* 15-46 
55-22 55-23 
55-36 55-57 



D 2 
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r 



ACDU1 


6-0 


6-0 






ACDU2 


6-0 


6-0 






ACK 


4-2A6# 








ACPUOP 


6-0 


6-0 




398* 


ACTDRV 


54-93« 


54-347* 


54- 


ACTSTR 


5A-99# 


54-98P* 


54- 


:02» 


AODWO 


6-0 








A0DW1 


6-0 








A0DW10 


6-0 








ADDU11 


6-0 








ADDW12 


6-0 








A0DU13 


6-0 








AODWU 


6-0 








A00W1 5 


6-0 








A0DU2 


6-0 








AD0U3 


6-0 








A0DW4 


6-0 








AD0W5 


6-0 








A00W6 


6-0 








A0DW7 


6-0 








AODyS 


6-0 








ADDU9 


6-0 








ADEVCT 


6-0 


6-0 






AOEVM 


6-0 


6-0 






AENV 


6-0 


6-0 






AENVM 


6-0 


6-0 






AFATAL 


6-0 


6-0 






ALOST 


32-50 


60-53* 






AMAORI 


6-0 


6-0 






AnA0R2 


6-0 


6-0 






Af1ADR3 


6-0 


6-0 






AMAORA 


6-0 


6-0 






AMAHS 1 


6-0 


6-0 






AnAns2 


6-0 


6-0 






AnAns3 


6-0 


6-0 






AliAnSA 


6-0 


6-0 






AMSGAD 


6-0 


6-0 






AMSGLG 


6-0 


6-0 






AMSGTY 


6-0 


6-0 






AMTYPI 


6-0 


6-0 






MrtTYP2 


6-0 


6-0 






AWTYP3 


6-0 


6-0 






AMTYP4 


6-0 


6-0 






AOE 


4-154* 








APASS 


6-0 


6-0 






APRIOR 


6-0 








APTCSU 


44-1 


47-1 * 


47-1 


APTENV 


42-1 


44-1 


APTSIZ 


9-25 


47-1* 


47- 




APTSPO 


44-1 


47-1 


-1* 


ASGNl 


27-1 07# 








ASGN2 


27-105 


27-121* 






ASGN3 


27-117 


27-132 


27-140* 


ASGNA 


27-141 


27-^68M 






ASGN6 


27-149 


27-170* 






ASGN7 


27-148 


27'175a 






ASGMD 


11-64 


60-33* 







54-691 • 54-699» 54-986 



47-1* 
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ASKPAR 
ASMBLY 
ASNERR 
ASNIST 

ASKflSG 

ASSIGN 

AsyREn 

ATO 
ATI 
AT2 
AT3 
AT4 
ATS 
AT6 
AT7 
ATA 
hTABIT 

ATESTN 

ATTN 

AUNIT 

AUSUR 

AUTLST 

AVAIL 

AVECT1 

AVECT2 

BAOeLK 

BADENT 

BAOSEC 

BAOTHO 

BAI 

6EGCQ0 

BCGPAT 

BEGUC 

BITO 

BITOO 

BITOT 

BIT02 

BIT03 

BIT(K 

BIT05 

BIT06 

BIT07 

BIT08 

BIT09 

BIT1 

BIT10 

BIT11 

BIT12 

BIT13 
BITU 

B1T15 



9-180 
7-0 

27- 119 
7-0* 

28- 28 
27-107. 
27-85* 

6-0 

4-1 6^* 
4-168* 
4-169* 
4-170* 
4-171* 
^-1 72* 
4-173* 
4-1 74* 
4-141* 

n-71 

35-1 

6- 0 

7- 0* 
6-0 

6- 0 
11-72« 

7- 0* 
4-259* 

6- 0 

7- 0* 
9-193 
7-0* 
9-3* 
4-100* 
7-0* 
7-0* 
7-0* 
4-74* 
4-74 
4-74 
4-74 
4-74 
4-74 
4-74 
4-74 
4-74 
4-74 
4-74 
4-74# 
4-74* 
4-74* 
4-74* 

54-653 
4-74* 
4-74* 

54-805 
4-74* 

54-655 
4-74* 



61-"' 7* 

27- 137 
11-71* 

28- 34 » 

27- 113* 

28- 50 
6-0 



24-27 
35-1 

6-0 
42-1* 

6-0 

6-0 

28- 13* 
11-22 

6-0 

6-0 
31-68 
27-101 

11- 173» 
9-27 

29- 33 
29-36 
29-38 

4-74* 
4-74* 
4-74* 
4-74* 
4-74* 
4-74* 
4-74* 
4-74* 
4-74* 
4-74* 

12- 35 
12-33 

9-137 
54-669 

9-137 
12-8 
54-965 
12-6 
54-657 
12-41 



27- 1^1 
11-80 

28- 40 

27- 122* 

28- 55 



27-112 
35-1 

58-1 



34-23* 
11-65 
6-0 

61-13 
32-77 
21-48* 



29-34 

29-39 

42-1 
12-39 

12-119 

12-119 

12-614 

12-222 

12-24 

12-135 

12-37 

12-159 

12-163 

12-31 

54-875 

12-147 

12-10 

54-: 75 

12-183 

54-734 

54-: 83 



27- 181 
11-189 

28- 44* 

27- 128* 

28- 60 



28-22 

24-8 

34-22* 

27- 170* 

28- 66 



28-38 34-7* 

24-27 27-24 27-112* 

35-1 35-1 35-1* 

27-176* 27-178* 27-180* 



27-115 27-^27 
54-145* 54-318 

58-2 



27-130 27-140 28-10 
54-410 54-515 54-895 



35-1 35-1 35-1* 35-1* 35-9* 
11-69* 11-119 11-122 11-157 11-177 



33-26 60-45* 

22-68 25-16 25-17 25-18 25-19 



42-1 
54-390 

12-507 
12-139 
54-865 
12-223 
12-143 
54-328 
42-1 

12-169 

22-276 

12-173 

54-877 

12-480 

12-39 

54-; 21 

^2-222 

54-849 



':-4-655 

54-849 
54-885 

12-310 
U-7 

54-: 39 

42-1 

54-281 

}2-222 

54-; 1 

12-580 

12-123 

54-:25 

12-^81 

54-865 



54-; 71 



12-325 
54-328 



54-657 
54-417 
12-223 
54-; 66 
39-103 
12-127 
54-<40 
12-323 
54-875 



14-7 
54-590 



54-618 

12-241 

54-<43 

42-1 

12-131 

12-580 
54-885 



22-249 
54-711 



54-972 
22'217 

54-375 
12-181 

54-375 
54-965 



27- 115 

28- 21* 



27•^27* 27-130 
28-37* 34- '2* 



SFO 022'' 



27-140 28-10 28-12* 



28-12 
54-923 



28-13 
54-931 



28-32 
54-932 



28-54 
54-954 



34-22 
54-: 51 



34-23 



25-20 



27-79 
54-849 



54-328 
54-865 



54-381 
54-885 



54-454 
54-027 



54-734 
54-<03 



54-<42 



54-275 54-309 54-328 
54-: 14 

12-632 



54-392 54-425 54-608 



54-820 
12-301 



54-; 14 
12-630 



54-387 
54-: 39 



54-390 
54-: 75 



54-592 
54-: 85 



12-640 
54-422 



54-387 

54-425 



54-422 
54-618 
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BIT3 

BIT4 

BITS 

BIT6 

BIT7 

BIT8 

BIT9 

BLKADR 

BLNKSl 

BlNKS2 

BLNKS3 
BLNKSA 
BPTVEC 
BSE 

BUFTBL 

BUSAOR 
CFLAG 

CHGADR 
CMKUC 

CI1 
CI5 
CIA 
'.IS 
CI6 
CI7 

CI?B 
CIS 

CK.CHR 

CK.DEC 

CK.DIG 

CK.NUH 

CK.OCT 

CK8US 

CKCLK 

CKCLKl 

CICCLIC2 

CKCLIC3 

CKERR 

CKFWT 

CKMCE 

CKLWTS 

CKSyR 

CLKFLG 

CLOCK 

CLR 

CLRDPB 
CLRQUE 

CHCVL 
CPDAT 
CWED 
CI*>AR 
C«PA»D 



4->4# 

A-74# 
4-74# 

4-7A# 
A-7A# 
7-0# 
13-364 
9-248 

22- 77 

13- 361 
9-221 
4-74# 
4-228* 
7-0* 

14- 91 
9-78 
7-0# 

32-127* 
7-0* 

15- 41 
54-444 
54-446 
54-438 
54-494 
54-554 
54-377 
54-567 
54-623* 
54-626 
40-50* 
40-28* 
32-53 
63-30 
40-10* 
12-16 

9-205 

23- 41 
23-54 
23-50 
12-15 

12- U1 
72-145 
75-27 
42-1 

7-0* 
23-46 

4-102* 
10-27 
54-215 

7-0* 

7-0* 

13- 31 
13-55* 
72-19 



12-151 
12-401 
12-155 
12-241 
12-254 
12-555 
12-167 
9-90 
15-576 
12-666 
22-116 
59-61* 
59-60* 



9-155* 

14- 92 
65-15* 

9-100* 
55-9* 

9-15* 
17-47 
54-472* 
54-496* 
54-518* 
54-516 
54-544 
54-455 
bu-577 
54-916 
54-640* 
40-87 
40-56 
52-60 
65-41 
40-58 
12-700* 
25-38* 
25-52* 
25-65* 
25-61 
12-681* 
}2-l7bM 
}2-^'\^» 
16-56 
42-1 
23-55* 
25-58 

9-209 
27-150 
54-679 

12- 668* 

15- 15* 
15-44 

13- 3* 
13-8* 



22-97 

12-445 

12-376 

12-580 

10-26 

22-19 

12-666 

22-167 



9-154* 
14-104* 

9-177* 
35-21 

9-18* 
19-16* 



54-596* 
54-546 
54-484 
54-588 

54-769 
40-95 

32-67 
64-12* 



35-6 



23-71* 



18-14* 
55-1* 

25- 45* 

26- 51* 
54-235 
29-10* 
54-<94* 
12-672* 
15-16* 
15-55* 



13-490 
12-582 

24-25 
22-74 
12-666 
22-172 



9-155* 
14-109* 

9-185 
55-51* 
10-14 



54-606 
54-548 
54-488 
54-605 

54-: 66 
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9-55 
24-152 
53-1 



36-8* 
54-964 
9-61 
53-1 
53-1 



54-: 38 
24-68 
53-1 
53-1 



54-: 72 
24-89 
•53-1 
53-1 



54-: 80 
24-101 
53-1 
53-1 



54-=55* 

24-104 24-112 24-115 

53-1 53-1 53-1 

53-1 53-1 53-1 



24-12^ 

53-1 

53-1 



12-230 12-313 13-483 14-173* 



13-416 
26-7 

26-33 



26-43* 
26-44 



42-1 42-1 
11-164* 



42-1* 42-1* 42-1* 42-1* 



12-399 12-443 25-16* 

12-98 12-109 12-203 12-236 12-256 12-274 
12-506 12-523 12-532 12-550 12-568 12-579 



12-289 
12-598 



12-330 
12-611 



12-352 
12-629 



12-370 
12-694 



12-400 
12-712 



11-89* 26-38* 26-50 26-52 26-52 26-55* 52-14* 52-17 61-4 



44-1 
13-19* 



60-22 
13-164 



60-50 
13-166* 



CZRMUBO RM05/5/2 PERF EXER MACRO V04.00 

CROSS REFERENCE TABLE (CREF VOI-05 ) 



L 2 

4-APR-81 01:42:25 PAGE S-U 



SEO 0232 



LIN3.1 

LIN3.3 

LIN3.4 

LIN6.1 

LIN6.2 

LIN7M 

LIN70R 

LINTOX 

LIN^P 

LIN7R 

LIN7S 

LIN7T 

LIN7X 

LIM8M 

L1N9B 

LIN9E 

LIN9G 

LIN9H 

LIN9I 

LINA3 

LINB3 

LINB5 

LI^e6 

LINC6 

L INC A3 

LIND5 

LINDA3 

LINOEC 

LINEI 



LINE2 



LINE2A 
LINE2B 
LINE3 

LINE3A 
LINE3B 
LINE3C 
LINE 30 
LINE3E 
LlNE3r 
LINE4 

LINE5 

LINE5A 

LINE 56 

LINE6 

LINE6A 

LlNE6e 

LINE6C 

LINE6D 

LINE7 



22-126 
22-137 
22-145 
22-336 
22-348 
22-424 
22-39S 
22-387 
22-419 
22-398 
22~k27 
22-38^ 
22-390 

12- 237 

13- 158 
13-190 

12- 275 

13- 160 

12- 658 
22-235 
22-152 
22-284 
22-328 
22-335 
22-189 
22-268 
22-185 

13- 192 
22-2^2 
12-48 
12-495 
22-ar 
12-50 
12-503 
22-440 
22-Ut> 
22-69 
12-51 
12-577 
12-609 
12-597 
12-461 
12-710 
12-504 
12-522 
12-52 
12-578 
12-288 
12-345 
12-261 
12-225 
12-268 
12-260 
12-207 
12-209 
12-54 
12-453 



22-132 

22-144 

22-235# 

22-342 

22-354 

59-33# 

59-42# 

59-40# 

59-37* 

59-43* 

59-38* 

59-39* 

59-41* 

13-507 

59-45* 

59-49* 

59-50* 

59-46* 

59-48* 

59-11* 

59-15* 

59-23* 

22-341 

59-29* 

59-13* 

59-22* 

59-14* 

22-76 

22-256 

12-81 

12-501 

12-83 
12-521 

22-49 

22-72* 

12-84 

12-628 

12-653 

22-137* 

22-144* 

22-107 

22-164* 

22-183* 

12-85 

12-610 

12-309 

12-398 

22-31 5* 

22-328* 

22-335* 

22-341* 

12-293 

12-266 

12-87 

12-485 



22-200* 
22'22SM 

22-358* 
22-367* 



22-439 


59-44* 






















59-28* 
























22-166 
22-261 
12-93 
12-519 


22-171 
22-2'^ 
12-104 
12-529 


22-176 
22-369 
12-200 
12-538 


22-201 
22-386 
12-215 
12-556 


22-206 
22-389 
12-283 
12-574 


22-208 
22-397 
12-299 
12-594 


22-211 
22-426 
12-340 
12-606 


22-215 
22-429 
12-366 
12-625 


22-219 
22-465* 
12-388 
12-650 


22-227 

12-^Z2 
12-689 


22-230 

12-458 
12-707 


22-238 

12- 474 

13- 152 


12-95 
12-531 


12-108 
12-540 


^ 2-202 
12-558 


12-218 
12-576 


12-288 
12-596 


12-309 
12-606 


12-342 
12-627 


12-368 
12-652 


12-390 
12-691 


12-434 
12-709 


12- 460 

13- 154 


12-476 
22-35* 


22-68* 
























12-96 

12- 692 

13- 155 


12-108 

22'^2SM 

22-131* 


12-219 


12-288 


12-309 


12-343 


12-369 


12-391 


12-435 


^2-^77 


12-541 


12-559 


22-150* 
























12-97 
12-654 
22-26M 
12-^^2 


12-108 
12-693 

12-463 


12-220 
12-711 

12-549 


12- 288 

13- 156 

12-567 


12-309 
22-108 

22-301* 


12-344 
22-249# 


12-392 


12-456 


12-478 


12-505 


12-542 


12-560 


12-318 
12-295 
12-99 
12-488 


12-327 
12-360 
12-110 
12-512 


12-357 
12-408 
12-210 
12-524 


12-405 
12-452 
12-257 
12-533 


12-449 
12-487 
12-276 
12-551 


12-484 
12-514 
12-331 
12-569 


12-511 
12-588 
12-358 
12-589 


12-586 
12-620 
12-361 
12-618 


>2-617 
12-638 
1?-371 
12-639 


12-636 
22-353* 
12-406 
12-695 


22-547* 

12-409 
1?-713 


12- 450 

13- 195 
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1 "? crvy 


55_1Q/ M 








L I Nt A 


1 "3 / 
1 ^-<iOO 


1 5_ArtO 


5 5—/ 1 Q^ 






t ff kit o 

L INEB 




1 5 15Q 


1 1— cm 


55— A IQif 




L I^^c^^3 




CO 1 r\M 
5V- 1 U* 








HNE05 


■i^ Tift 










L INEP5 


11 TIC 

2^-31 5 


CO 








L INOo 


lO 7/ 7 


CQ— in« 
jV— jUw 










Ol 1 oc 


CO—/ « 










CC^CJ 1 


CQ— 1 o» 

JT— 1 








LINN3 


DD— 1 11 

cc- 1 51 


CQ— A« 

5t— 






1 5-AAA 1 P-A^^ 
1 C OOO 1 c OOO 


1 f T 
LINOC 1 


1 c-ooo 


1 5— AAA 

1 c— OOO 


1 5— AAA 


1 5— AAA 
1 c 000 




1 1— 15Z. 


1 1-15A 


1 1-XAn 
1 J jOU 


1 J jDj I J jDO 






55— 5BA 


55-1(17 




55-^17 33-^31 

CC J 1 ' CC JC I 






CQ— 








1 T IUDC 


50— DQ7 


CQ— 5Z.ir 
JT— 








L. INRo 
LIN53 


55— 77n 


CQ— 11i» 

3y— J 1 * 








55—1 A/. 


55— 55C 


CQ— 0« 

5T 






1 f uc/ 


55_5QA 


CO— 5ni» 
5t— £U* 








L IriOJ 


55—705 


CO— 5Cir 

J7— c5w 








L KM JO J 


?5-1 71 


CO— 1 R# 








1 liUCTT 
L I No 1 J 


55—1 AB 
CC~ 1 Do 


CQ— 1 7Jf 








L INI J 


55— 570 


CO— 1 5if 
5y^ 1 








1 Ikl l(V> 




CO— 




• 




1 T 

L IIMWj 


55—1 


CO— 1 Air 










55— 5<;7 


CO— 5iir 










55— infl 


CO— AAjr 










O— 1 7^ir 










1 nrtcu 

LLVC V 


0—5/.^ 
Tr~c*»5 


57—1 1 1 


57-1 ?R 


7# 






1 1—1 11 

1 1 1 J 1 


5n— Rip 








1 cr 


A— 55Z.jr 






0-1 

Tr 1 JO 






7— rut 




Q-1^S 

7 1 55 


• 


1 C TLir\D 


15— OA 


AO— C5iP 
OU— 










1A— 77* 










M rvD/. 1 


1A— B5 


1A— SO# 










1A— Afl 










H . l/r't't 


1A— inn 


iA-in*;jf 

50 1 U5w 








H - ur'jKJ 


jO f 5 


1A— mojr 








n.L. ju 


1A— AA 
jO *»0 










MA TU 


1 1— ur 


11—1 OA 


1 S-A7 

1 5 Or 


^S-7 

j5 f 




MA ItLil 


ID— <11 


1 1 — 5n 


1 1 -AOir 

1 1 — HTfw 






MA IKI? 


1 1— •iO 

1 1 jy 


11— 70Jf 








MA IMTtA 


11—1 Uf 










nANTER 


27-164 


32-10* 








MACV 


7— A« 

r— 


1 5—539* 
1 c— etc * 


1 5— 510 

ic— cjy 


1 9— 3ft^ A 
1 C COJ " 


13.T^X* 13>Ani* 


HATCH 


13-54 


13-214* 








MAvr VI 


1 7-^ 

1 f J 


lO jO 


1Q-5B 




30.Q3 30»0^* 




0 1 5H 


O 1 5t 


0 1 5"* 


0 1 JH 


O I 0 1 JH 




f — U» 


J*t JO 










1 7-?S 

1 f CJ 
0 1 5H 


1 O C r 

A1-^^ 
O 1 JH 




1 — J J 


3g«,7ift 39-1()£ 
cy 1 ' cy ivH 




17-14 
61-54 


18-31 
61-54 


19-23 


19-30 


29-70* 29-98 


MBASN 


39-60 


60-55* 








MCPE 


4-85# 










MCPEHX 


54-157* 


54-; 01 


54-;47 






MDPE 


4-105# 










HERRI 


31-94 


60-46* 









12- 666 

13- 372 
22-449* 



12- 666 

13- 378 



13-174 
22-114 



13-177 
22-154 



13-180 
22-157 



13-315 
22-187 



13-315 
22-191 



^5-315 
22-253 



12-445* 

55-54* 
61-54 

29-107* 

29-101* 



12-480* 
55-55 

55-58* 
55-56* 



12-507* 
55-56 

61-54 
61-54 



12-583* 
55-57 

61-54 
61-54 



12-614* 
55-58 

61-54 
61-54 



12-632* 
55-59 

61-54 
61-54 



13-492 
55-63 

61-54 
61-54 



13-497 
61-54 

61-54 
61-54 
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Ov *» 1 • 






MESS AG 




^1 -HO 


Dili 


1 7-A 

1 r w 


P11NL Y». 


1 J- J 1 


1 0— hU 






0 1 J*» 


0 1 J** 


Al-Si 

W 1 JH 


A1 -St 

W 1 JH 




1 

1 J~C7 


1 o— jO 


1 7- PA 

1 f CO 


1 7-PR 

1 r CO 






O 1 JH 


A1 -St 
O 1 jH 


A1 -St 

W 1 JH 


M 1 KJTDV 

nlni 1 nf- 


1 j-jU 


1 0 JT 


1 7-1 S 

1 f 1 J 


1 7-1 7 




0 1 J*» 


D 1 JH 


A1 -St 

O 1 JH 


A1-S4 


M T mi tTC 


7— n* 








MiuTDl 


7_riM 
f U»» 


CC— OU 






MTUJ 

nuH 


1 7 1 w 








MTU 


H— 1 jo» 








MDMr C 1 

HKHLo 1 


O J tc 


O J HTW 






MDMV/P r 


O J JJ 


D J JW^ 






MCC 1 U 1 


JC CD 


AD— A Sir 
OVJ HO* 






naui. 1 o 


JC JJ 


Ow — — " 








J J 1 


AO-'^Oir 

WW JW^ 




WW C W" 




1 ?-7n 


jH— CO 


J J I 




■57-RR 

^ r "OO 


Ow JOW 










AO-^R# 

Ow JO* 






My r 












JH 1 O^W 


jH Jv J 






Pi 


DU^ J J^ 








ncu 












C J^V J 


A0-^4ir 
















MPLIACM 


C ' fU 


CO H 


1 1-53 


11-69 










1 1— on 

1 1 tU 


AO— soir 
ou^ jww 






MfVMT V 


JC 1 Cj 


AO-SI # 

WW J 1 — 






■uDMTru 




1 J JW 








JT^O 1 








npj 1 MVL 


AO-1 Sir 

WV^ 1 J" 








n^J 1 r'K J 




?7-1 78 


60-14* 










60-13* 






T C jO 


7 -170 


60-16* 
















7—(\M 








Ur r U i n 










ur r uw 


*♦ 1 J 1 W 








nF F T 
ur r oc 1 










nFF 
ur r o 1 


1 c cjyj 








ur Liri 




1 ?-9?* 

1 C "C" 






ur nouv 


7-0 


7-oxr 

r V/~ 






ur nou » 


7-0 


7-0* 






ur nouc 


7-0 


7-0* 






urn IOC 


f 










7-0 


f Wrf 




26-31 




7-QM 


9-94* 


1 1-85* 


Ur C 










OPI 










OPIER 


12-K9 








0PIER1 


1 2-481 # 








OPT 


54-373 


54-408* 


54-729 


54-93 


OPTBL 


7-0* 


22-51 


22-53 




OR 


4-1 04# 






11-10 


OPDERO 


7-0* 


9-88 


11-5 







N 


2 




/_ ADD. 

H— Hnn" 


0 1 W 1 • H C 








1 7-0 


1 R-1 S 


1R-1 7 


C7 f 


C T T 1 


A1 -S^ 

O 1 JH 


A1 -St 

W 1 J H 








1 7-71 


1R-P1 

1 O C 1 


1 R-P^ 

1 O C J 


1 R-P9 

1 O C T 




A1 -St 

O 1 JH 


A1 -St 

O 1 JH 


Al-St 

O 1 JH 


Al-St 

O 1 JH 


61-54 


17-20 


18-18 


18-20 


18-34 


19-21 


61-54 


61-54 


61-54 


61-54 




26-39* 


26-40 


26-42* 


52-12* 





11-70* 27-1 65* 



26-33* 
54-978 

11-115 11-140 11-164 52-20 



SEO 0234 

29-96* 29-110 55-55* 61-54 61-54 
19-17 29-74* 29-103 29-108* 29-112 
29-73* 29-97 29-102* 29-111 55-57* 
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PACK 

PACKSN 

PAR 

PARI 

PARIO 

PAR11 

PARK 

PARIS 

PARI 6 

PARI 9 

PAR2 

PAR20 

PAR21 

PAR3 

PAR4 

PARS 

PAR6 

PAR7 

PARS 

PAR9 

PARENT 

PARER 

PARLST 

PASSES 

PAT 

BATTER 

PCLOCK 

PERIW 

PFECH 

PFECHl 

PfECH2 

PfECH3 

PFECH4 

PF TSTN 

PG£ 

PGH 

PIP 

PIRO 

PIRCiVE 

POPOUE 

POSER 

PRO 

PR1 

PR2 

PR3 

PR4 

PR5 

PR6 

PR7 

PROCES 

PRTBAO 

PRTIM 

PS 

PSEL 

PSW 

PUMSAF 



7-0# 
39-78 

61-3 

61-13 

61-7 

61-8 

61-10 

61-9 

61-5 

61 -A 

61-11 

61-12 

61-6 

61-21# 

61 -22# 

61-23# 

61-24# 

61-25# 

61-26# 
9-197 

12-153 
9-169* 
7-0# 
4-101# 
7-0# 
7-0# 

24-94 

43-1 

43-1 

43-1 

43-1 

43-1 

43-1 
4-1 07# 
4-1 35# 
4-1 39# 
4-74/r 
4-74# 

S4-421 

12-426 
4-74# 
4-74# 
4-74# 
4-74# 
4-74# 
4-74# 
4-74# 
4-74# 

11- 172 

12- 221 
12-42 

4-74 
54-345 
4-84# 
4-74^ 
12-32 



9-99* 

60- 544r 

61- 18# 
61 -27# 
61-28* 
61-29# 
61-30# 
61-3U 
61-32# 
61-19# 
61-33# 
61-34# 
61-20* 
61-54 
61-54 
61-54 
61-54 
61-54 
61-54 
29-89 

12- 50U 
9-196 

3S-1 

13- 219 

23- 39* 

24- 103 
43-1# 
43-1# 
43-1# 
43-1# 
43-1# 
43-1# 



15-63* 27-166 28-49« 28-54* 28-59* 28-65* 



61-54 


61-54 


61-54 


61-54 


61-54 


61-54 


61-5 


61-54 


61-54 


61-54 


61-54 


61-54 


61-54 


61-5 


61-54 


61-54 


61-54 


61-54 


61-54 


61-54 


61-5 


61-54 


61-54 


61-54 


61-54 


61-54 


61-54 


61-5 


61-54 


61-54 


61-54 


61-54 


61-54 


61-54 


61-5 


61-54 


61-54 


61-54 


61-54 


61-54 


61-54 


61-5 


33-8* 














61-3* 














61-5 














17-69 


17-71 


61-6 










23-44* 










24-145 




24-109 


24-114 


24-120 


24-128 


24-142 


24-1 



24-151 24-158 39-65 60-57* 



43-1* 



54-472 54-589 54-891 54-926 54-9^ 54-*70* 
12-458* 



27-13 



9-28 
35-1 
12-5* 
12-258 
12-104* 

4-74* 
54-546* 



12-47* 



12-612 13-333* 



9-93 • 
54-599* 



27-13* 
54-409 



27-80* 
54-457* 



35-1* 



39-43 



39-44* 39-105* 52-15* 54-213 54-214* 54-243* 54-251^ 
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PURFLG 9-17A 9-212 9-216* 52-1* 52-2>» 

PWRVEC A-7<,# 9-25* 9-25* 52-1* 52-1* 52-1* 52-1* 52-1* 52-1 * 

QCNT 5A-<53# 54-<95 54-=19* 54-=34 54-=36* 54-=56 54-s70« 

QDRVO 5<.-<60 54-<67 5A-<72 54-<86* 

QORVl 54-<63 54-<70 54-<73 54-<86* 

QDRV2 54-<63 54-<70 54-<74 54-<86i» 

Q0RV3 54-<63 54-<70 54-<75 54-<86# 

QDRV4 54-<63 54-<70 54-<76 54-<86# 

QDRV5 54-<63 54-<70 54-<77 54-<86# 

00RV6 54-<63 54-<70 54-<78 54-<86# 

Q0RV7 54-<63 54-<70 54-<79 54-<86# 

QINPT 54-<60# 54-=21 54-=38* 54-=39* 54-=40 54-=42« 

QOUTPT 54-<67# 54-=21* 54-=59 54-=72 54-=73* 54-=74« 54-=75 54-=77« 

CSTART 54-<72# 54-=01 54-=06 54-=42 54-=77 

QSTOP 54-<?3# 54-=40 54-=75 

QTFRM 54-<80 54-<87# 

QUtS 34-8 60- 3# 

R6 4-74# 9-25 9-25* 9-25* 

R7 4-74# 

RANCYL 16-29 17-3# 

RANDOM 7-0# 16-28 61-12 

RANDWC 7-0# 17-37 61-7 

RANPAT 1 7-59# 

RANSEC 17-25* 

RANSI2 16-41 17-36* 17-44 

RANTRK 17-14* 

RANXIT 17-60 17-63* 

RATIO 7-0* 10-8* 

RD ADR 54— '03* 54- '04* 

Rd'.RM 54-283 54-^13 54-^19 54-537 54-561 54-575 54-713 54-767 54-841 54-851 54-867 54-: 22 54-; 01* 54-; 54 

54-; 68 54-; 74 

RD.RMI 54-; 05* 54-; 33 

RD.Rn2 54-;01* 54-; 32* 

RD.RH3 54-; 12 54-; 24 

RD.RH4 54-; 17 54-; 36* 

RD.yRD 54-; 07* 54-; 08 

RDCHR 41-1 53-1* 

RDDAT 4-255* 7-0 

RDMD 4-256* 7-0 

RDLIN 9-181 27-20 

ROY 4-81* 

READDR 12-338 12-380 

RE ADHD 12-339 12-381 

READJN 4-245* 

RECAL 4-240* 13-408 

RECALO 13-428* 27-145 

RECAL T 12-467 12-601 

REDAPK 27-58 28-54* 

RELBUf 11-182 14-86* 

RELSE 4-242* 

REPHD 11-191 60-22* 

REPlZ 24-92 39-1 3* 

RESREG 14-164 27-77 36-49 50-1 51-1 53-1* 54-252 54-393 54-396 54-458 54-686 54-698 54-:01 54-<24 

54-=10 
RESVEC U~7i*lt 

RETRY 7-0* 12-204* M'227* ^2-2'^l* 12-244 12-244 12-249* 12-290* 12-312* 12-317* ]^|^9* l^l^l 12-321 12-354^ 

12-402* 12-446* 12-481* 12-508* 12-582* 12-613* 12-633* 13-487* 13-499* 13-500 13-500 22-568 



16-13 
54--06* 
54-^19 
54-<07 


61-8 
58-3 
54-537 


54-561 


54-575 


54-713 


54-767 
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STARS A-74# 5_ 5_8 ^^_o ^^^^ 

51-1 52-1 52-1 53-1 54-15 62-1 
SWRSU 4-74# 9-25 9-25* 

TRMTRP 53-1 « 53-3 

?JEdEC 4-74! 24-102 24-113 24-14^ 24-144 24-147 24-150 35-1 
TYPNAM 4-74» 9-30 

{JtoS 4-^41 9-220 11-63 12-72 24-74 27-156 31-96 34-1C 

TYPOCT 4-7*,# 41-1 43-1 ^1*2, « ^, w ->/ ao 9/.-ir 

TYPTXT 4-74# 9-6 9-44 9-55 9-61 24-68 24-89 24-1( 

24-143 24-146 24-149 24-152 

JPCODE 51-2* 52-1 

XXEP 34-53# 35-1 



SEO 024? 



34-31 35-1 35-1 

24-104 24-112 24-115 24-125 24-159 2^-140 



